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ABSTBiCT 

Functional  programming  is  a  methodology  designed  to 
eliminate  many  of  the  problems  of  past  programming  lanuages 
through  actions  such  as  the  elimination  of  the  assignment 
statement  and  the  ability  to  program  in  an  environment  that 
is  at  a  higher  level  of  abstraction  than  any  previous 
languages.  In  this  report  an  interpreter,  written  in 
Pascal,  for  the  Extended  Lambda  Calculu  is  presented. 
Initially,  the  events  leading  to  the  devel  ment  of  func- 
tional programming  is  discussed  followed  by  an  in  depth  look 
at  how  the  interpreter  operates.  Numerous  example  ELC 
programs  are  presented,  including  discussions  of  practical 
applications  and  statistical  information  about  execution 
times  and  memory  requirements.  The  Berkeley  Pascal  source 
code  for  the  interpreter  is  also  included  in  Appendix  c. 
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I-    PDBPQSB    AND    BACKGROUND 

A.  PDEPCSE 

The  purpose  of  this  thesis  it  to  illustrate  the  design 
and  use  of  an  interpreter  for  the  Extended  Lambda  Calculus 
(ELC)  as  described  by  MacLennan  [Ref.  1  ].  Initially, 
however,  it  is  important  to  understand  why  functional 
languages  such  as  ELC  are  important  and  why  they  will  become 
increasingly  important  in  the  future.  To  achieve  this,  a 
brief  background  sketch  is  presented  to  explain  the  events 
that  have  shaped  the  need  for  such  languages. 

B.  BACKGROUND 

During  the  brief  history  of  Computer  Science  there  has 
been  a  remarkably  rapid  evolution  of  computing  hardware, 
while  software  develorment  has  for  all  practical  purposes 
remained  static.  Throughout  the  last  thirty  years,  improve- 
ments such  as:  decreasing  component  size,  increased  memory 
capacity,  faster  processor  speeds  and  reduced  hardware  costs 
have  occurred  at  regular  intervals.  This  trend  continues 
today  in  areas  such  as  super  computers  like  the  Cray  and 
Cyber  and  the  rapidly  changing  micro  computer  industry.  If 
one  studies  the  evolution  of  computer  software  for  the  same 
time  period,  in  particular  programming  languages,  the  same 
types  of  rapid  improvements  on  a  regular  basis  have  not 
occurred.  The  first  revolutionary  development  in  program- 
ming languages  occurred  with  the  development  of  FORTRAN  by 
Backus  et  al.  in  the  mid  1950s.  For  the  first  time  scien- 
tific programmers  could  write  code  that  strongly  resembled 
the  eguations  they  were  working  with.  Practically  all  the 
programming  languages  developed  since   that  time,    perhaps 


with  the  exception  of  LISP  and  APL,  are  basically  the  same 
underneath  as  Fortran.  Of  course  there  are  some  outward 
differences,  such  as  sophisticated  string  and  array  handling 
mechanisms,  but  they  are  all  seguentially  processed  and  rely 
heavily  on  use  of  the  assignment  statement,  variables  and 
the  notion  of  machine  state.  The  early  pioneers  in  program- 
ming languages  are  not  totally  at  fault  for  the  lack  of 
progress.  To  understand  this  statement,  a  brief  examination 
of  the  architecture  these  languages  were  written  for  is 
necessary. 

The  great  improvements  in  hardware  development, 
mentioned  previously,  were  also  not  fundamental  until  fairly 
recently.  Hardware  improvemerts  remained  superficial  in 
that  the  majority  of  them  were  made  on  the  same  architec- 
ture, that  proposed  by  von  Neumann  et  al.  in  1946.  Briefly, 
the  von  Neumann  architecture  consists  of  a  Central 
Processing  Unit,  a  Memory  used  to  store  both  programs  and 
data,  and  some  kind  cf  connecticn  between  the  two  capable  of 
transmitting  single  words  or  addresses  back  and  forth. 
Improvements  have  concentrated  on  decreasing  size, 
increasing  speed,  etc.  and  have  not  been  concerned  about  the 
basic  design  of  the  computer.  The  connection  between  the 
memory  and  the  CPU  is  the  reason  why  most  programming 
languages  are  sequential  in  nature,  forcing  the  user  to  deal 
with  some  fairly  low  level  constructs  such  as  incrementing 
counters  and  setting  up  iteration  loops.  3ackus  [Bef-  2] 
termed  this  connection  the  von  Neumann  bottleneck  and  also 
described  conventional  programming  languages  as  just  soft- 
ware versions  of  von  Neumann  machines.  Computer  architec- 
tures are  starting  to  change,  hcwever,  and  in  order  to  gain 
the  maximum  benefit  from  then  programming  languages  and 
technigues  must  change  also. 

Throughout  the  development  of  new  hardware  systems  the 
trend   has   been   to  increase   speed   by   making   components 


smaller  and  smaller.  Common  sense  dictates  that  eventually 
the  ability  to  do  this  will  become  physically  impossible. 
Does  this  mean  that  the  ^uest  to  increase  computation  speed 
will  stop?  Obviously  not.  The  most  promising  solution  is 
to  fully  exploit  parallel  operations  in  data  processing 
whenever  possible.  As  explained  by  Stone  [Ref.  3],  much 
promising  work  has  been  accomplished  in  the  fields  of  array, 
multiprocessor,  and  pipeline  conputers,  but  there  are  still 
open  research  problems  concerning  how  to  properly  organize 
and  synchronize  all  these  processors.  In  other  words  there 
is  no  effective  software  tc  manage  parallel  computer  opera- 
tions. Conventional  pro  imming  languages,  with  their 
seguential  nature,  do  not  offer  much  hope  as  a  solution. 
The  functional  programming  languages,  such  as  FP  proposed  by 
Backus  [Bef.  2],  or  the  Kent  Recursive  Calculater  by  Turner 
[Ref.  4]#  by  their  very  nature  lend  themselves  to  parallel 
operations.   This  is  illustrated  in  the  next  section. 

As  stated  previously,  one  of  the  biggest  problems  with 
conventional  languages  is  the  assignment  statement.  Backus 
[Ref.  2]  calls  the  assignment  statement  the  bottleneck  of 
programming  languages  because  at  the  heart  of  all  conven- 
tional programs  we  find  a  myriad  of  assignment  iperations 
producing  one  word  results.  The  programmer  ust  then 
concern  himself  with  the  flow  of  words  through  these  assign- 
ment statements  to  achieve  the  desired  results,  instead  of 
concerning  himself  with  the  problem  as  a  whole.  Another 
problem  with  the  assignment  statement  is  that  it  makes 
programs  unreliable.  Mathematical  proofs  do  not  lend  them- 
selves well  to  statements.  Consider  someone  trying  to  do  a 
mathematical  proof  of  the  following  statement. 

x  :=  x+ 1 
That   statement  makes  absolutely   no  sense   mathematically. 
How  can  'x*  be  assigned  the  value  of  itself  plus  one?    This 
statement   is    legal,    however,     in   most   conventional 
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programming  languages  and  makes  formal  proofs  of  them 
extremely  difficult  as  shown  by  the  work  of  Hoare  [Bef.  5]. 
Functional  languages  do  away  with  the  idea  of  the  assignment 
statement  and  work  only  with  expressions.  Expressions,  in 
contrast  with  statements,  do  posess  mathematical  properties. 
Backus  [Bef.  2]  has  even  shown  that  the  functional  language 
FP  lends  itself  to  an  algebra  cf  programs  that  can  allow  for 
relativly  simple  proofs  of  program  correctness.  Since  func- 
tional languages  deal  only  with  expressions,  the  idea  of 
execution  order  becomes  obsolete,  as  explained  by  MacLennan 
[Bef-  6].  One  begins  to  understand  how  these  languages  can 
be  used  to  exploit  parallelism  since  several  expressions 
could  be  solved  simultaneously  and  then  brought  together  to 
form  a  final  result. 

Another  advantage  of  functional  programming  is  the 
compactness  of  the  code  written  by  programmers.  Two  exam- 
ples from  the  literature  illustrate  this  fact  very  well. 
Backus  shows  in  [Bef.  2]  an  FP  program  to  calculate  the 
factorial  of  an  arbitrary  integer  n.  The  program  is  one 
line  long,  whereas  the  corresponding  program  written  in  Pl/I 
is  eight  lines  long.  The  two  programs  are  shown  in  Figure 
1. 1  f cr  comparison.  An  even  more  startling  example  was 
devised  by  Early  [Bef-  7],  where  a  two  pass  assembler  was 
written  in  both  FP  and  C  for  an  artificial  assembly 
language.  The  assembler  written  in  C  occupied  459  lines  of 
non-ccmment  source  code,  where  as  the  FP  assembler  occupied 
249  lines,  of  which  more  than  100  lines  were  only  a  single 
character  so  as  to  aid  in  program  readability  and  clarity. 
This  fact  could  have  far  reaching  effects  in  an  attempt  to 
solve  the  software  crisis  as  presented  by  Turner  [Bef-  4]. 
The  fact  that  the  code  is  more  compact  could  mean  increased 
programmer  productivity  since  it  is  well  known  that  program- 
ming time  is  roughly  proportional  to  the  number  of  lines  of 
code  regardless  of  the  language  being  used.    Also,  since  it 
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Defl  =  egO  — >  1:  x  dot  (.id,!  dot  subl.) 
Note:  dot  =  composition 
FE 


fact: 

proc  (n)     recursive    returns  (fixed)  ; 
del    (n,    v)     fixed; 
if  n   <   2 

then    v    =    1; 

else   v   =    c   *    fact(n   -    1)  ; 
return  (v)  ; 
end    fact; 

Pl/I 


Figure  1.1    Factorial  Erogram  in  FP  and  PL/I. 

is  easier  to  prove  functional  programs  correct,  software 
maintenance  costs  could  improve  dramatically.  Early*s 
project  also  demonstrated  this  fact  in  that  the  assembler 
written  in  C  took  sixty  hours  tc  complete  compared  to  twenty 
for  the  FP  version.  One  of  the  main  reasons  for  this  fact 
was  that  debugging  time  for  the  FP  version  was  negligble. 
This  was  attributed  to  the  fact  that  FP  programs  do  what  you 
expect  of  them  since  they  are  so  easily  proven  correct. 
Functional  languages  are  not  without  their  critics  and  prob- 
lems, however,  a  fact  which  merits  discussion. 

There  are  those  that  will  argue  that  functional 
languages  should  not  be  used  because  they  are  not  readable. 
This  varies  somewhat  depending  on  the  functional  language 
being  studied.  In  Figure  1.2  there  are  three  examples  of 
functions  to  take  the  sum  of  two  numbers.  They  are  written 
in  Backus*  FP,  Turner's  KRC,  and  ELC. 

What  does  "readable"  really  mean?  Is  the  ELC  function 
more  readable  because  it  is  obvious  that  a  function  is  being 
called  (because  of  the  explicit  use  of  the  word  "call") ,   or 
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♦  :  <  1 .  2> 

FP 

sum  i  1  2 1 

krc 

<call  <var  sum>  <con  1>  <con  2» 
ELC 


Figure  1.2    Sub  in  Three  Functional  Languages. 

are  the  other  implementations  mere  readable  because  of  their 
conciseness?  The  point  is  that  readability  means  different 
things  to  different  people.  It  also  depends  to  a  certain 
degree  on  training.  A  programner  well  versed  in  FP  will 
undoubtedly  feel  comfortable  with  the  FP  version  and  might 
find  the  ELC  notation  too  vertose  and  wasteful.  On  the 
other  hand,  a  person  not  familiar  with  FP  or  KRC  may  be  able 
to  tell  more  about  what  the  function  is  supposed  to  do  by 
reading  the  ELC  version. 

The  conclusion  is  that  the  readability  issue  is  not  a 
good  reason  to  abandon  functional  programming.  Of  course 
there  is  a  certain  amount  of  learning  time  required,  as  with 
any  language,  and  it  may  even  be  more  severe  in  this  case 
due  to  the  mathematical  nature  of  these  languages.  However, 
if  the  benefits  of  exploiting  parallelism  and  decreasing 
software  maintenance  costs  can  be  achieved,  they  will  far 
outweigh  the  disadvantage  of  a  longer  learning  period. 

Another  problem  area  that  has  kept  the  popularity  of 
functional  languages  to  a  minimum  is  the  halting  problem  as 
described  by  MacLennan  [Ref.  6].  As  stated,  since  func- 
tional programs  are  constructed  from  expressions,  evaluation 
order  does  not  matter.  This  is  true,  however,  only  for 
problems  that  halt.  It  is  possible  to  write  some  functional 
programs  in  such  an  order  that   will  cause  them  to   go  into 
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infinite  loops.  For  examples  of  such  programs  see  HacLennan 
[Ref.  6]. 

Is  the  halting  problem  a  reason  to  disregard  the  value 
of  functional  progamming?  If  it  is,  then  all  other  program- 
ming languages  should  be  discarded.  It  is  not  unusual  for 
programmers,  using  conventional  languages,  to  occasionally 
write  programs  that  go  into  infinite  loops. 

Finally,  another  reason  why  functional  programming 
languages  are  not  currently  popular  is  that  they  do  not  work 
very  efficiently  on  conventional  architectures.  As  stated 
previously,  most  current  architectures  are  von  Neumann  in 
nature,  meaning  they  are  sequential.  The  result  is  that  the 
inherent  parallelism  of  the  functional  languages  cannot  be 
exploited.  There  is  work  being  done  to  design  new  architec- 
tures, some  specifically  for  functional  languages.  One  of 
the  most  promising  is  the  reduction  architecture  proposed  by 
Mago,  which  is  described  in  [Ref.  8  ]• 
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II.     INJTERPfiETEH   OPERATIONS 

1.   ASSOHPTIOIS 

It  is  assumed  that  the  reader  has  a  working  knowledge  of 
recursion  and  recursive  languages,  in  particular  Pascal.  If 
not  refer  tc  Cooper  [Bef.  9]  fcr  information.  The  reader 
must  also  have  knowledge  of  the  Extended  Lambda  Calculus  as 
presented  by  SacLennan  [fief.  6].  Complete  descriptions  of 
these  areas  are  beyond  the  scope  of  this  report. 

The  interpreter  is  a  prototype  system,  so  priorities 
were  given  to  successful  operation  and  to  clarity  of  code 
rather  than  to  efficiency.  Efficiency  was  not  completely 
forgotten  and  suggestions  on  future  improvements  in  this 
area  are  given  in  Chapter  4,  Conclusions. 

B.   PASCAL  IS  THE  IHPLEMENTATIO M  LANGOAGE 

Pascal  was  chosen  as  the  implementation  language  for  the 
interpreter  for  two  reasons.  First,  Pascal  is  the  high 
level  language  taught  to  Computer  Science  students  at  the 
Naval  Postgraduate  School.  I nplementation  of  the  inter- 
preter in  Pascal  will  thus  facilitate  its  future  use  by 
students  without  the  necessity  of  learning  a  new  language. 
Second,  using  Pascal  demonstrates  that  an  interpreter  of 
this  type  can  be  written  in  alnost  any  programming  language 
providing  that  it  has  recursion.  Pascal,  however,  is  not 
the  ideal  language  for  this  type  of  project. 

1  .   Pascal  Does  Have  Some  Advantages 

The  principal  advantage  of  Pascal  is  the  ability  to 
dynamically  allocate  memory,  which  takes  the  burden  of 
managing  an  array  or  heap   space  away  from   the  programmer. 
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Meir  ry  management  is  )vered  in  detail  in  Section  F  of  this 
chc  :er.  The  other  advantage  of  Pascal  is  the  clarity  of 
the  code  as  opposed  to  some  other  languages  such  as  FORTRAN 
or  C.  Pascal  is  not  as  efficient  as  these  other  languages, 
but  in  a  prototype  system  like  this  clarity  is  a  higher 
priority. 

2  •      Pascal^s   Disadvantages    are   Commonly    Known 

Pascal's  disadvantages  for  this  particular  implemen- 
tation are  no  different  than  any  other;  however  there  are 
two      that      deserve    special      mention.  Pascal      input-output 

facilities  afe  very  awkward  to  use.  Any  ype  of  translating 
program,  whether  it  he  an  interpreter  or  compiler,  must  scan 
an  input  program,  either  from  a  file  or  terminal,  before 
execution.  Pascal  provides  only  for  input  to  be  read  in  one 
character  at  a  time.  This  technique  is  obviously  very  inef- 
ficient, especially  since  it  is  well  known  that  a  good 
method  of  improving  program  efficiency  is  by  reducing  the 
number      of    I/O      calls  required.  At  a      minimum,      a      better 

language  would  allow  at  least  an  identifier  at  a  time  to  be 
read,  while  the  ideal  language  would  allow  a  large  amount  of 
data  to  be  read  into  a  buffer,  which  could  then  be  scanned 
and  used  as  needed,  only  more  efficiently  because  it  is  in 
main  memory.  If  the  interpreter  were  reading  from  a  disk,  a 
logical  amcunt  of  data  to  be  read  at  one  time  would  be  an 
entire   track. 

C.       THE    CELL    AND    THE    REPRESENTATION    OF    ATOMS    AND    LISTS 

1 .       Atoms 

In  ELC,  as  in  LISP,  there  are  only  two  elements, 
atoms  ^ind  lists.  Atoms  are  ncn-divisible  entities  such  as 
integ  s,  real  numbers,  characters,  and  identifiers.  For  a 
complete  breakdown      of   atoms      and    the      rest    of      the    language 
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refer  to  the  grammar  in  Appendix  A.  Lists  are  sequences  of 
atoms  or  lists  or  atoms  and  lists  separated  by  spaces  and 
surrounded    by   angle    brackets   as   in    Figure    2.1. 


<list    a   b   c> 
<list    a   b    <list   c    d>    e> 
<letrec   append    .    .    .> 


Figure   2. 1         ELC    Lists. 

Atoms  are  used  to  represent  information  and  data  in 
the  language,  so  the  interpreter  must  have  a  way  of  repre- 
senting them.  Simple  records  are  not  adequate,  however, 
because  there  are  several  kinds  of  atoms  and  they  must  be 
distinguishable.  The  perfect  choice  is  the  variant  record, 
which  allows  the  same  record  structure  to  be  used  for  all 
atoms  while  permitting  some  or  all  of  the  information  to 
vary  depending  on  the  value  of  a  tag  field.  These  variant 
records  are  referred  to  as  cells  throughout  the  remainder  of 
the    report.      Tags   for  the   different    atoms   are: 

•  bop.  (boolean  values) 

•  rea  (real  values) 

•  j-gt  (integer  values) 

•  alf  (identifier;    corresponds  to   Berkeley  Pascal   alfa 
type  which  is  a  string  of  ten  characters) 


Figure  2.2   illustrates  the  Pascal   represention  of   an  atom 
cell . 
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1                                                                                                                              —             1 

1 

1                              Pointer 

!-->- 

ref   =  0           I 

tag    =   int 
ival    =   2         | 

Figure  2.2    Representation  of  a  Cell  Containing  an  Integer. 

2-   l^at  about  lists? 

The  atoms  are  the  building  blocks  of  ELC  and,  when 
placed  in  sequences  form,  the  lists  previously  described, 
lists  are  also  formed  using  variant  records.  Lists  are 
naturally  thought  of  as  items  that  are  grouped  together 
because  of  a  common  bond.  The  linked  list  of  Pascal  is  the 
natural  method  to  use  to  represent  these  groups.  This  is 
clear  because  the  interpreter  needs  to  be  able  to  create 
lists  of  varying  lengths  during  execution.  Since  the  size 
of  Pascal  arrays  must  be  declared  before  program  execution, 
their  use  to  represent  lists  is  impossible.  A  language  with 
arrays  that  could  grow  dynamically  would  be  more  efficient 
to  use  in  order  to  avoid  the  overhead  required  in  main- 
taining Pascal  pointers  in  linked  lists.  The  list  cell  is 
shown  in  Figure  2.3.  The  basic  cell  structure  is  the  same, 
except  that  the  tag  is  now  *  1st*  and  the  variant  portion  of 
the  record  contains  two  fields  (head  and  tail)  that  are 
pointers  to  other  cells.  As  mentioned  previously,  lists  are 
sequences  of  atoms,  lists,  or  atoms  and  lists  surrounded  by 
angle  brackets.  In  crder  for  the  interpreter  to  recognize 
where  the  angle  brackets  are,  the  tail  field  of  certain  1st 
cells  are  set  to  nil.  The  representation  of  two  simple 
lists  is  shown  in  Figures  2.4  and  2. 
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Pointer 
from   another 
cell 


+ — >lref    =    0  i 

]  tag    =   1st  | 

< J  head       J         tail| >Pointers    to 

other  cells 


Figure  2.3    Pascal  Representation  of  a  List  Cell. 


<a  b  c> 


— >jref  =  1 
|tag  =  1st 

head  |  tail|_ 


n==n ,-,- 


+->Jref  =  1 

tag  =  alf 
aval  =  'a' 


+->Jref  =  1 

I  tag  =  1st   I 

| head  |  tailj 


+-> 


ref  =  1  j 
tag  =  alf  | 
aval    =    «b« | 


+ — >|ref    =1 

(tag    =    1st 

_|head    |     tail| 


+ — >nil 


+->|ref    =    1 

|  tag    =    alf 
javal    =    'c' 


Figure   2.4         Representation   of  a   Simple   List. 
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<a   <b   c>   d> 


— >|ref  =    1  | 

J  tag  =    1st      | 

Ihead    |    tail| 
T" "^ 


+->|ref   =    1 
| tag   =   alf 
| aval  =    ■ a1 j 


+- >lref   =    1  l 

jtag    =   1st       | 

Ihead    1    tail] 
— T 


Jref   =    1 
jtag   =    1st 


<-+ 

Ihead        tail|_ 


1":::::::::::: 

+->|ref  =    1 
ltag  =    alf 
aval   =    »b' 


+->|ref   =    1 

tag   =    1st 


♦ — >|ref    =1 

jtag    =    1st 

Ihead    J    tail| 


+— >nil 


i         +->|ref    =    1 

tag   =    alf 
Ihead    |    tail    |_  |aval    =    »d' 

♦ —  >nil 


+->|ref  =  1  | 
jtag  =  alf  J 
laval  =  'c' | 


Figure  2.5   List  Within  a  List. 

The  first  list  contains  three  atoms.  It  is  easy  to  tell 
that  there  are  three  elements  in  the  list  by  counting  the 
cells  that  are  tagged  as  lists  (1st) .  The  information  in 
the  list  is  contained  in  other  cells  that  are  pointed  to  by 
the  heads  of  the  list  cells.  The  tails  of  the  list  cells 
point  to  the  next  list  cell,  which  in  turn  points  to  the 
next  element  in  the  list.  The  end  of  the  list  is  repre- 
sented by  the  tail  field  of  the  last  element  being  set  to 
nil.  The  example  in  Figure  2. 5  is  a  list  that  has  as  one  of 
its  elements   another  list.     Cnce  again   if  you   count  the 
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number  of  1st  cells  that  are  at  the  top  of  the  Figure,  there 
are  three  with  the  tail  field  of  the  1st  cell  at  the  far 
right  set  to  nil.  Being  consistent  with  the  previous 
discussion  this  is  a  list  containing  three  elements.  The 
head  of  the  second  1st  cell,  however,  does  not  point  to  a 
leaf  or  information  cell,  it  points  to  another  1st  cell 
which  forms  the  identical  structure  as  previously  seen. 
Again,  the  tail  field  of  the  last  element  in  the  internal 
list  is  nil,  signifying  the  end  of  this  list. 

D.   EIC  PROGRAMS 

1  •      Definition 

An  ELC  program  is  nothing  more  than  a  list  built  in 
such  a  way  that  it  can  be  evaluated  by  the  interpreter.  It 
is  important  to  remember  that  cne  program  equals  one  list. 
Of  course  this  one  list  usually  consists  of  many  other 
nested   lists   as   its    elements. 

2  •      Heading    Programs 

Programs  are  read  into  the  interpreter  by  the 
readval  and  readlist  functions,  which  can  be  reviewed  in 
Appendix  C,  Source  Code.  The  reading  process  is  started  by 
the    following    line    of    the  interpreter. 

printval  {  eval(  readval,  primitives)) 
The  first  function  called  is  the  readval  function  which 
determines  the  type  of  data  being  read  by  recognizing  the 
first  character  of  the  input.  Since  a  program  is  a  list, 
the  first  character  will  obviously  be  a  left  angle  bracket 
'<',  transfering  execution  to  the  readlist  function. 
Readlist  builds  the  program  into  the  same  kind  of  structure 
as   discussed      in   the    last   secticn.  This   is  seen      by    first 

noticing   that   readlist      calls   readval   again    and      the   results 
are    placed    in    a    list    through    the   cons  function.         A    detailed 
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description  of  the  primitive  cocs  is  covered  in  Section  3  f 
this  chapter,  but  suffice  it  to  say  that  cons  forms  e 
first  element  of  the  list  represented  as  a  cell  pointed  to 
by  the  head  of  a  1st  cell  with  the  tail  set  to  nil. 
Additional  cells  are  added  by  connecting  them  properly  to 
the  tail  of  the  last  cell  read  using  the  cons  primitive  and 
manual  manipulation  cf  pointers.  This  is  accomplished  by 
the  while  loop  in  function  readlist.  This  process  continues 
until  a  right  angle  bracket  is  recognized,  which  of  course 
signifies  the  end  of  a  list. 

3-   Primitive  Operations 

The  following  are  the  primitive  operations  provided 
by  the  interpreter  and  a  brief  explanation  of  each.  Correct 
syntax  for  the  language  is  covered  in  Appendix  A. 

•  First  Takes  a  list  and  returns  the  first  element,  eg. 
the  first  of  <a  b  c>  is  a. 

•  !§§£  Takes  a  list  and  returns  a  list  containing  every- 
thing but  the  first  element,  e.g.,  the  rest  of  <a  <b  c 
d>  e>  is  <<b  c  d>  e>. 

•  l§^t  Takes  a  list  and  returns  the  last  element,  e.g., 
the  last  of  <a  b  c>  is  c. 

•  Initial  Takes  a  list  and  returns  all  elements  except  the 
last,  e.g.,  the  initial  of  <a  t  c>  is  <a  b>. 

•  Qons  Takes  an  atom  or  list  and  makes  it  the  first 
element  of  a  second  list.  The  second  argument  of  a  cons 
operation  must  be  a  list. 

cons  a  <b  c>  =  <a  b  c> 

cons  <a  b>  <c  d>  =  <<a  b>  c  d> 

•  Ccnr  Cons  to  the  right.  Conr  is  the  opposite  of  the 
cons  operation  in  that  it  makes  an  atom  or  list  the  last 
element  of  a  second  list. 
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conr  a  <b  c>  =  <b  c  a> 

conr  <a  b>  <c  d>  =  <c  d  <a  b» 

•  Atom  A  Boolean  function  that  determines  if  its  argument 
is  an  atom. 

atom  'a'  =  true 

atom  <list  a  b  c>  =  false 

•  Noli  A  Boolean  function  to  determine  if  a  list  contains 
no  elements.  The  last  exaaple  is  a  list  containing  one 
element  which  happens  to  be  a  null  list. 

null  <>  =  true 
null  <a>  =  false 
null  «»  =  false 

•  Binary  Arithmetic  Operators  Each  of  the  listed  operators 
works  for  any  m,n  where  m, n  are  two  integers  or  two  real 
numbers. 

sum  m  n 
subt  m   n 
prod  m  n 
divi  m  n 

•  Trigonometric  Functions  The  following  functions  take 
single  arguments  cf  angles  in  degrees. 

sin  x 
cos  x 
tan  x 
cot  x 
sec  x 
esc  x 

•  Id  Identity  Function;  simply  returns  the  argument  it  is 
sent,  eg.  id  2  =  2  and  id  'a1  =  'a'.  The  purpose  of 
this  function  is  illustrated  in  example  program  x 
Appendix  B  which  generates  the  table  of  sin,  cos,  tan 
for  all  angles  from  0  to  90  degrees. 
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•  Sub  Returns  a  particular  element  from  a  list.  Takes  two 
arguments:  a  pointer  to  a  list  and  an  integer  indicating 
the  position  of  the  desired  element  in  a  list.  For 
example,  sub  (<A  E  C>  2  )  =  B 

•  E^EE  Takes  a  finite  set  (finset)  as  an  argument  and 
returns  its  ELC  representation,  which  is  simply  a  list. 

repr  <finset  a  t  c  1  2>  =  <a  b  c  1  2> 

•  i^n  Determines  the  length  of  any  list. 

len  <a>  =  1 
len  <  >  =  0 
len  <a  <b  c>  d>  =  3 

•  Egual  Equal  tests  the  equality  of  any  two  atoms  or  any 
two  lists. 

equal  <2  2>  =  true 

equal  <a  c>  =  false 

equal  <a  b  c>  <a  b  c>  =  true 

equal  <a  b  c>  <a  <b>  c>  =  false 

•  GT  Greater-than  tests  if  argl  is  greater  that  arg2. 

GT  argl  arg2  =  true/false 
GT  2  3  =  false 
GT  5  1  =  true 

The  next  three  boolean  primitives  follow  the  same  pattern 
as  GT. 

•  LT    Less-than 

•  GE   Greater-than    or   equal    to 

•  LE    Less-than    or    equal   to 

•  i^mb    Member    tests   to   see    if      argl    is   an    element    of    arg2, 
which    must    be    a   list. 

memb    argl   <arg2>  =   true/false 
memb    2   <1    2    3>    =   true 
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memb  <2>  <1  2  3>  =  false 

memb  <a  b>  <z  t  s  <a  b>>  =  true 

E.   THE  HEART  OF  THE  IHTERPRETEB,  THE  EVAL  FDNCTION 

The  eval  function,  Figure  2.6,  is  the  most  important 
function  in  the  interpreter.  Eval  acts  as  a  decoder,  deter- 
mining how  each  list  sent  to  it  is  to  be  interpreted.  This 
is  accomplished  by  stripping  off  the  first  element  of  the 
list  or  program  and  then  invoking  a  rule  that  corresponds  to 
that  first  element.   For  example,  if  the  program  is 

<list  a  b  c> 
eval  will  strip  off  the  word  "list"  and  return  <a  b  c>  as 
the  result.  Referring  back  to  the  line  of  code  that  starts 
program  execution,  it  is  seen  that  after  the  program 
is  read  in  it  is  sent  to  the  eval  function  along  with  a 
pointer  called  primitives.  Primitives  is  a  pointer  to  an 
association  list  which  acts  as  an  environment  for  executing 
the  primitive  operations  discussed  in  the  last  section.  For 
a  detailed  discussion  of  association  lists  and  environments 
see  MacLennan  [Ref.  6].  The  primitives  association  list  is 
built  initially  by  using  the  dcprim  (declare  primitives) 
function.  An  example  of  a  part  of  the  list  is  shown  in 
Figure  2.7.  The  reason  this  primitives  association  list  is 
constructed  is  to  maintain  consistency  between  how  primitive 
and  user  defined  functions  are  evaluated  by  the  interpreter. 
This  is  discussed  in  more  detail  later  in  the  next  section. 

It  is  important  to  now  look  at  the  key  words  recognized 
by  eval  and  the  rules  they  invoke.  By  doing  this,  a 
complete  understanding  of  the  interpreter  will  be  achieved. 

1  •   lection  Eval^s  Keywords 

•  li§t  'list*  simply  lets  the  interpreter  know  that  this 
expression  is  a  list,  so  eval  returns  the  rest  of  the 
list  sent  to  it.  For  example,  if  eval  is  sent 
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function   eval    (e.    a:    list):    list; 
var   T,C,e1p:    list; 

e1 :alfa; 
begin 

if  atompj[e)     then   eval    :=    e 
else    begin 

elp    :=    first  (e)  ; 

e1    :=    e1pa).aval: 

if   e1    =    'list1    then   eval    :=    evlis  (rest  (e)  ,    a) 

else   if   e1    =    'finset'     then    eval    :=    e 

else   if  e1    =    'con'    then  eval    :=    f irst (   rest  (e) ) 

else    if   e1    =    'var'     then   eval    :=    assoc (    a, 

first  (   r  est(e) )  ) 
else   if   e1    =    'Ietrec'     then    eval    := 
letrec  (first  (   rest  (e)}  # 
first  (rest  (rest  (e)  )  ) , 
first {rest (rest (res t (e)  ))) ,    a) 
else   if  e1    =    'lambda'    then    begin 
new(C,    alf)  ; 
cellcountCI.    'eval'); 
with    C3    do   begin 
tag    : =  alf : 
aval    :=    'closure'; 
end; 
eval    :=    cons  (    cons(C.e)  ,    cons(a,nil)    ); 
end    {if    e1    =    'lambda'} 
else   if   e1    ='if    then    eval    :=   evcon  (  rest(e),    a) 
else    if   e1    =    'call'    then 

eval    :=    apply (eval  (first  (rest (e) ) ,a) , 
evlis (rest (rest(e)J ,a)) 
else   if  e1    =   'apply'    then 

eval  :=applv  (eval  (first  (rest  (e) )  ,a.)  , 
eval  ff  irst  (rest  (rest  (e)  ) )  ,  a)  ) 
else   if   et    =    'let'    then   begin 

{First,    evaluate   actual    parameters   and  then 
form    the  environment   of   evaluation    for    the 
let   statement) 
T:=    pair  lis  (evlis  f  first  (   first  (    rest  (e)  )  )  ,    a), 
evlis  (    first  (re       (   f  irst  (   rest  (e)  )  )  )  ,    a),    a) 


eval  := 

eval  (first  (rest  (r  est  (first  (rest  (e)  ))))  ,  T) 
end 
else  errormsg ('eval') ; 

end 
end  {Function  eval} ; 

' 3'  Indicates  pointer 


Figure  2.6    Function  Eval. 

<list  a  b  c> 
the  rest  of  the  list  or  <a  t  c>  is  returned. 

•  con  'Con'  tells  the  interpreter  that  the  remainder  of 
the  list  is  a  constant,  so  it  is  returned  as  such. 
Examples  are: 
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<  <first  <prim  first>>  <rest  <prim  rest» 


Figure  2.7   Primitives  Association  List. 

<con  1>  =  1 

<con  <1  2  3>>  =  <1  2  3> 

•  var  The  keyword  var,  tells  the  interpreter  to  search  the 
current  environment  of  execution  for  the  value  of  a 
certain  bound  variable.  for  example,  if  <var  x>  was 
sent  to  eval  and  the  association  looked  like 

<<x  5>  <y  'Navy»>  <z  1400>.  .  .> 
eval  would  return  the  value  of  5  for  x.  The  search  of 
the  association  list  is  performed  by  the  assoc  function 
of  the  interpreter.  Refer  to  the  source  code  for  the 
interpreter  found  in  Appendix  C  for  a  more  detailed 
discussion  of  the  assoc  function. 


<lambda  <x>  <call  <var  sum>  <var  x>  <var  x>>> 


Figure  2.8   Lam  Ida  Expression. 


•  lambda  Lambda  expressions  are  ELC's  analog  to  the  proce- 
dure of  conventional  programming  languages.  These 
expressions  are  templates  for  solving  certain  problems 
using  variables  that  must  be  bound  to  actual  values 
before  evaluation  can  take  place.  This  template  is 
commonly   known   as  an    abstraction.         The   example    given   in 
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2.8  is  a  lambda  expression  that  can  take  any  x,  where  x 
is  an  integer  or  real  number,  and  add  it  to  itself.  It 
is  currently  not  executable  because  no  actual  value  for 
x  is  present.  Since  evaluation  cannot  be  completed 
until  later,  the  interpreter  prepares  the  lambda  expres- 
sion for  future  execution  by  forming  a  closure.  This  is 
accomplished  by  using  the  primitive  cons  to  add  the 
keyword  'closure'  to  the  frcnt  of  the  lambda  expression 
and  then  using  ccns  once  again  to  add  this  to  the  front 
of  the  current  environment,  which  has  been  placed  in  a 
list  by  itself.  All  that  is  left  is  to  bind  x  with  a 
value  and  add  that  to  the  current  environment  for  execu- 
tion to  take  place.  This  is  accomplished  by  the  apply 
function,  which  is  triggered  by  the  keyword  'call'. 


<call    <var 
Call  to 

sum>    <con    2>   <con    3>> 
Primitive    Function 

<ca 

11 

<lambda   <x>   <call 
User   Defined 

<var   sum> 
<var   x> 
<var   x»<con 
Function 

5>> 

Figure  2-9   Osing  Call  to  Invoke  Functions. 

•  call  The  keyword  'call'  evckes  the  interpreter  function 
apply  to  evaluate  ELC  function  calls.  The  two  simple 
examples  given  in  Figure  2.9  are  of  a  direct  call  to  a 
primitive  function  and  a  call  of  the  lambda  expression 
discussed  in  the  last  section  with  the  actual  value  of 
5.  The  execution  of  each  is  traced  below.  Refer  to 
Figure  2.6  to  follow  the  trace. 

^call  <var  sum>  <ccc  2>  <con  3>> 
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-  'call'  is  recognized  by  eval 

-  <var  sum>  is  sent  to  eval  with  the  current 
environment 

-  ' var'  is  recognized  by  eval 

-  'sum*  is  looked  up  in  the  current  environment 
by  function  assoc  and  <prim  sum>  is  returned. 

-  The  rest  of  the  rest  of  the  expression,  which 
is  <<con  2>  <con  2>>  is  sent  to  function  evlis 
which  in  turn  sends  each  of  the  elements  of 
the  list  to  function  eval  with  the  current 
environment. Evlis  returns  a  list  of  the 
results.  In  this  case  <2  3>  is  sent  to  func- 
tion apply  as  the  actual  parameter. 

-  Function  apply  takes  a  function  and  applies  it 
to  a  certain  numter  of  arguments.  It  acts 
somewhat  like  eval  in  that  it  strips  off  the 
first  element  of  the  list  sent  to  it  to  deter- 
mine hew  to  precede.  Since  the  first  element 
is  'prim1  the  interpreter  knows  that  the 
following  element  is  the  name  of  a  primitive 
function.  The  result  is  that  the  function 
name,  'sum',  and  the  arguments  are  sent  to 
another  function  applyprim  for  final 
evaluation. 

-  sum,  <2  3>  are  sent  to  applyprim. 

-  2,  3  are  sent  to  function  sum. 

-  A  pointer  to  the  answer  is  sent  back  eventu- 
ally reaching  the  initial  call  of  function 
eval,  the  answer  is  printed,  and  evaluation 
stops. 
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-  Note:  The  recursive  nature  of  tl  interpreter 
is  now  clear,  even  for  such  a  s  iple  program. 
This  point  affects  efficiency  and  should  be 
considered  as  an  area  for  future  improvement. 

<call  <lambda  <x>  <call  <var  sum> 

<var  x> 
<var  x>>>  <con  5>> 

-  •call1  recognized 

-  <lambda  <x>  <call  <var  sum>  <var  x>  <var  x»> 
sent  to  eval  with  current  environment. 

-  'lambda'  recognized  and  a  closure  is  formed  as 
follows  <<closure  lambda  <x>  <call  <var  sum> 
<var  x>  <var  x»>  a  >  where  a  is  the  current 
environment. 

-  <con  5>  is  sent  tc  eval;  5  is  returned. 

-  The  closure  and  5  are  sent  to  function  apply. 

-  In  function  apply  'closure'  is  recognized,  so 
the  body  of  the  function  call  <call  <var  sum> 
<var  x>  <var  x>>  is  ser.t  to  function  eval.  But 
an  environment  must  be  created  before  evalua- 
tion can  be  completed. 

-  x,  5,  and  the  current  environment  is  sent  to 
function  pairlis  hhere  the  new  environment  is 
created  by  forming  an  attribute  value  pair  of 
x  and  5,  <x  5>,  acd  adding  this  to  the  current 
environment. 

-  Evaluation  of  the  function  now  proceeds  as  the 
first  example,  except  when  <var  x>  is  sent  to 
eval  the  new  environment  is  searched  finding 
the  value  5. 
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The  consistency  between  how  primitive  and  user 
defined  functions  are  evaluated  is  now  clear.  This  regu- 
larity aids  the  programmer  because  only  one  convention  must 
be  remembered  to  invoke  all  functions. 


<if  <<call  <var  egual>  <con  0>  <con  3» 
<con  'true') 
<ccn  'false'>» 


Figure  2- 10    EIC  Conditional. 


•  if  The  keyword  'if  signals  that  the  remainder  of  the  list 
is  a  conditional  statement,  so  the  rest  of  the  list  is  sent 
to  function  evcon,  which  first  determines  the  value  of  the 
first  sublist,  which  must  in  turn  be  a  call  to  one  of  the 
Boolean  functions.   In  Figure  2.10, 

<call  <var  equal>  <con  0>  <con  3>> 
is  the  condition.  Function  evcon  sends  the  conditional  to 
function  eval  with  the  current  environment  of  evaluation. 
If  the  condition  is  not  a  Boolean  function  call  an  error 
will  occur.  If  the  condition  evaluates  to  true,  the  result 
of  evcon  is  the  evaluation  of  the  next  sublist  by  eval.  If 
the  condition  is  false,  the  result  is  the  evaluation  cf  the 
last  sublist.  In  the  example,  since  0  and  3  are  not  e^ual 
the  conditon  is  false  so  the  last  sublist  is  sent  to  eval, 
resulting  in  the  constant  'false'  being  returned. 

•  l£i£6c  The  keyword  'letrec'  is  a  signal  to  create  a 
special  environment  for  the  evaluation  of  a  recursive  func- 
tion. See  Figure  2.11.  There  are  four  elements  that  must 
be  considered: 

•  function  name  In  this  case  'append' 
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•  lam Ida    expression   The   abstraction 

•  k£&l      °f      ik®   letrec      Call      to      the    function      itself     or 
another  letrec   expression. 

•  current   environment 

As  with  the  normal  function  call  a  closure  is  formed  and 
this  is  added  to  the  front  of  the  current  environment.  The 
difference  is  that  the  environment  part  of  the  closure 
points  back  to  the  point  where  the  closure  was  inserted  in 
the  current  environment.  This  is  done  so  the  function  can 
be  recursively  called  if  need  be  or  other  var  parameters  can 
be  looked  up  in  the  environment.  See  Figure  2.11  to  see  how 
the  environment  for  the  append  function  is  constructed.  As 
stated,  letrec  statements  can  be  nested  by  including  them  as 
the  body  of  another  letrec,  thus  allowing  the  programmer  to 
call  any  of  the  recursive  functions  above  it  in  the  body  of 
the  last  recursive  function.  These  functions  can  only  look 
back  and  not  forward.  For  examples  see  Appendix  B,  Sample 
Programs. 

•  Let  The  'let*  statement  is  sinpiy  a  sugared  version  of  the 
lambda   statement    and      is    included    for   clarity.  Instead   of 

writing 

<call    <lambda<x>    <call   <var    sum> 

<var   x> 

<var  x>»  <con  5>> 
the  let  statement  allows  you  to  write  the  expression  in 
Figure  2.12.  In  general,  <let  <<x...>  <y...>  <B>»  means 
let  x  equal  y  in  expression  B.  Any  number  of  arguments  can 
be  included  in  the  lists  beginning  with  x  and  y.  This  type 
expression  is  particularly  valuable  if  you  want  to  assign  a 
user  defined  function  (lambda  expression)  a  name  which  can 
then  be  calle'  at  any  time.  Consider  the  doubling  function 
in   Figure  2.12.     The  doubling   function   could  have   been 
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>|tag  =  1st 

ref  =  2 
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■>   To  current 
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closure 
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To   the  environment 


jhead    |     tail    |_ 


|~>nil 


Figure    2.11        Letrec   Environment. 

accomplished  using  a  single  lambda  expression  as  in  Figure 
2.8,  but  the  let  statement  makes  the  function  call  expres- 
sion 

<call  <var   double>   <con    2>> 
clearer.      Once   again,    expressions  can    be   nested   by    inserting 
another      'let'    statement      for      the   B      expression      or   even      a 
'letrec*      statement.         Examples      are      given      in    Appendix     C, 
Sample    Programs. 
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■■  ■■■     ■  ■                                      

i 

<let   «double>   <lambda  <x> 

<call 

<call 

<var   sum> 
<var   x> 
<var   x>>> 
<var   double> 
<con2>>>> 

....  _..     .               . 

Figure  2.12    Doutling  Function. 

•  ap_£ly.  The  keyword  'apply1  triggers  much  the  same  action  as 
'call1,  except  the  arguments  to  the  function  are  placed  in  a 
separate  list  as  in 

<apply  <var  sum>  <list  <con  2>  <con  3>>> 

The  reason  this  feature  is  included  is  that  some  of  the 
useful  ELC  programs  require  that  arguments  be  reversed 
before  functions  are  applied  to  them.  This  can  only  be 
accomplished  if  they  are  placed  in  a  list  so  a  recursive 
function  call  can  reverse  the  elements.  There  is  no  primi- 
tive function  included  to  handle  this  situation. 

2  •   Printing  Results 

After  function  eval  has  completed  evaluation,  the 
result  is  in  a  tree  form  exactly  like  that  described  for  the 
program  itself.  A  pointer  to  the  top  of  this  tree  is  passed 
to  procedure  printval,  which  simply  walks  the  tree  and 
prints  the  information  found  in  the  leaves.  This  is  done  by 
checking  the  tags  of  the  cells.  If  a  cell's  tag  is  '1st', 
there  is  no  information  in  the  cell,  only  head  and  tail 
pointers.  Since  it  is  a  list  a  left  bracket  must  be 
printed.  At  that  point  the  left  and  right  cells  are  sent  to 
printval  recursively  until  a  cell  other  than  a  '1st'  cell  is 
found.  These  cells  are  obviously  leaves  of  the  tree  so  the 
variant  portion   of  the   cell  is   printed.    This   continues 
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until  a  tail  pointer  of  one  of  the  •  1st1  cells  is  nil.  This 
signals  the  end  of  the  list  sc  a  right  bracket  is  printed 
and  evaluation  is  completed. 

F.   MEMORY  MANAGEHENT 
1 .   Overview 

Throughout  the  execution  of  a  program  many  of  the 
cells  that  are  created  become  useless  because  they  can  no 
longer  be  accessed.  Good  examples  of  this  are  any  of  the 
binary  functions  included  in  the  interpreter  as  primitives. 
For  example,  consider  the  sum  function,  Figure  2.13.  Notice 
that  two  pointers  are  delivered  to  the  sum  function  which 
point  to  the  cells  that  contain  the  numbers  to  be  added. 
After  these  numbers  ar  added,  the  results  are  placed  in 
another  cell.  The  two  cells  that  held  the  intermediate 
results  are  no  longer  needed  and  should  be  returned  to  a 
free  list  to  be  used  again  latter.  Another  example  is  the 
creation  of  new  environments  fcr  lambda  expressions  before 
they  are  evaluated.  After  the  evaluation  of  the  lambda 
expression,  the  cells  that  made  up  the  attribute  value  pair 
that  was  added  to  the  current  environment  are  no  longer 
needed  and  should  be  returned. 

Since  this  is  a  prototype  system,  reference  counting 
was  chosen  as  the  memory  management  method  because  of  its 
simplicity  and  ease  of  installation.  The  model  followed  is 
outlined  by  MacLennan  in  [Ref.  6].  Reference  counts  refer 
to  the  number  of  pointers  that  a  particular  cell  has  refer- 
encing it  at  any  one  time.  This  count  is  kept  in  an  addi- 
tional field  in  each  cell.  Refer  to  Figure  2.4  to  see  the 
reference  counts  for  a  simple  list.  Reference  counts  must 
be  incremented  if  additional  references  to  cells  are  made. 
Reference  counts  in  cells  must  be  decremented  if  references 
are  destroyed.    References  can   be  destroyed  by  overwriting 
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1 

function   suifx,    y:   list)  :    list; 
var   R,I:    list; 

be94-5 

if    j[xa)  .tag=int)    and    fya.tag=mt)     then   begin 
if    empty    then    begin 
new  (I ,    int)  ; 
cellcount(i,     'sun'); 

end 

else 

I    :=    freecell; 

with    IS    do   begin 

ref    : =  0 ; 

tag    : =  int; 

I5).ival    :=   xcD.ival   ■*•    yS.ival; 

end; 

sum    :=    I; 

end 

else    if    (xS.tag=rea)    and    (ya).  tag=rea)     then    begin 

if    empty   then   begin 
new  (R ,    rea) ; 

cellcount(1,     'suit')  ; 

end 

else 

R    :=    freecell; 

with    RS    dc   begin 

ref    :=  0; 

tag    : =  rea; 

RS.rval    :=   xd.rval    +    ycD.rval; 

end; 

sum    : =   R  ; 

end 

else 

errormsg  {'sum')      [Type   mismatch} 

end;     {Function   sum} 

'S'    Indicates   Pointer 

i 

Figure  2. 13    function  Sum. 

pointers  with  other  pointers  by  using  an  assignment  state- 
ment or  if  the  cell  containing  the  pointer  itself  becomes 
inaccessible.  Whenever  a  cell's  reference  count  becomes 
zero  it  can  be  returned  to  the  system  because  it  is  no 
longer  accessible  by  the  prograa. 

The  interpreter  manages  reference  counts  through  the 
use  of  four  procedures: 

•  ptrassn  Overwrites  pointers 

•  deer  Decrements  cell  referer.ee  counts 
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return    Returns   cells    to    the   free   list 


•    freecell   Retrieves   cells    frcm    the   freelist 
Figure   2.14   shows   how  function    jtrassn    works. 


y 


— > 


Tag  =   alf 

ref 

aval        ■y 


-alf— -I 
=    'yes*     I 


I 


| >TTag~=~aIT 

I  ret  =  1 
|aval  =  'no' 


Cells  x  and  y  before  entering  ptrassn 


,  y— 


lTag"~~aTr    T 
ref  =  0 
javal  =  'yes'  j 


I 


J—  >TTag  =  all  J 

1 ref  =  2     | 

■> |aval  =  'no' | 

x  :=  y  accomplished  by  function  ptrassn 


Figure  2. 14    Function  Ptrassn. 

First,  the  reference  count  of  the  cell  that  x  points  to  is 
decremented.  Next  the  reference  count  of  y  is  incremented. 
Finally  x  is  assigned  the  value  of  y.  It  is  important  that 
the  assignment  statement  be  done  last  so  the  reference  count 
of  x  can  be  decremented.  If  not  done  x  would  no  longer 
point  to  the  correct  cell  and  the  reference  count  of  y  would 
actually  be  decremented. 

Procedure  deer  is  used  to  decrement  the  reference 
counts  of  all  cells.  If  a  reference  count  of  a  cell  goes  to 
zero,  deer  is  recursively  called  over  the  entire  list  until 
all  cells  with  references  of  zero  are  found  and  returned  to 
a  freelist  maintained  by  procedure  return. 
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Procedure  return  links  all  the  free  cells  together 
by  first  making  them  all  '1st'  cells  and  linking  them 
through  the  tail  fields  with  the  tail  field  of  the  last  cell 
in  the  list  being  set  to  nil. 

Freecell  is  a  procedure  that  is  used  to  recover 
cells  from  the  freelist  instead  of  creating  newcells  by 
using  the  Pascal  new  facility.  Each  location  in  the  inter- 
preter that  needs  to  create  new  cells  first  checks  to  see  if 
the  freelist  is  empty.  If  it  is  not,  a  cell  is  taken  from 
the  freelist  instead  of  creating  a  new  one.  Actually  a 
freelist  is  not  necessary.  Cells  could  be  returned  to  the 
system  using  Pascal's  dispose  feature.  Since  this  is  a 
prototype  system,  the  freelist  is  maintained  to  make  it 
easier  to  maintain  statistics  en  the  number  of  cells  fceing 
returned. 

2-   Conventions 

a.   Cell  Creation 

The  reference  counts  of  cells  are  set  to  zero 
when  they  are  created.  This  nust  be  done  so  that  when  a 
program  is  read  into  the  interpreter  reference  counts  in  all 
cells  are  set  to  one.  To  understand  this,  study  the  cons 
function  which  is  used  to  build  up  the  program  list  when  it 
is  initially  read.  Cons  uses  the  ptrassn  procedure  to  set 
the  head  and  tail  of  the  connecting  cells.  If  a  cell  is 
created  during  readin  and  its  reference  count  is  set  to  one, 
that  reference  count  will  go  to  two  when  that  cell  is  sent 
to  cons.  The  result  is  a  reference  count  that  is  greater 
than  it  should  be.  If,  however,  the  cell  is  created  with  a 
reference  count  of  zero,  it  will  be  set  to  one  when  it  is 
sent  to  cons,  which  in  turn  sets  the  head  and  tail  of  the 
connecting  cell  with  the  ptrassn  procedure.  The  only 
special  case  that  must  be  recognized  is  the  cell  at  the  very 
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top  of  the  program  tree  which  must  be  physically  set  to  one 
after  readin  since  it  is  never  sent  to  the  ptrassn 
procedure. 

b.  Local   Declarations 

If  locally  declared  pointer  variables  are  used 
to  overwrite  other  pointers  their  reference  counts  must  be 
decremented  before  the  procedure  they  are  declared  in  is 
completed.  This  is  done  because  locally  declared  variables 
are  only  visible  within  the  procedures  they  are  declared  in 
and  then  destroyed.  If  the  reference  counts  they  genereated 
are  not  decremented,  excess  reference  counts  to  some  cells 
are  the  result. 

c.  Passed   Parameters 

The  reference  counts  of  cells  referenced  by 
pointer  variables  passed  to  procedures  or  functions  by  value 
must  te  incremented  upon  entering  the  procedure  and  decre- 
mented when  leaving  the  procedure.  It  is  easy  to  see  how 
cells  can  be  recovered  in  this  manner.  If  the  reference 
count  of  a  cell  is  zero  when  it  enters  a  procedure  it  will 
be  incremented  to  one  during  the  execution  of  the  procedure 
and  then  decremented  to  zerc  and  reclaimed  when  the 
procedure   is   finished. 
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III.  HOMAN  INTERFACE  bith  THE  INTERPRETER 

A.   LOADING  A  PROGRAM 

The  interpreter  is  activated  by  first  compiling  or 
interpreting  it  using  the  facilities  of  Berkeley  Pascal 
under  Unix  4.2  BSD  as  shown  in  the  following  example: 

Interpreted  Code 

•pi1  <filename  of  the  interpreter^ . p ' 

Compiled  Code 

'pc1  <filename  of  the  interpreter^ . p ' 

If  interpreted,  an  executable  file  named  fobjf  is  created; 
if  compiled,  an  executable  file,  'a. out1  is  created.  The 
complied  version  runs  much  faster  as  seen  by  the  time  of 
execution  statistics  located  in  Appendix  B,  Sample  Programs. 
It  is  recommended  that  the  names  of  these  files  be  changed 
to  something  more  intuitive,  such  as  '  ELC  or  f  Interp1  , 
etc.  . 

The  interpreter  can  be  run  in  interactive  mode  or  a 
program  can  be  executed  from  ancther  file.  Interactive  mode 
should  only  be  used  for  short  programs  or  if  the  interpreter 
is  being  used  as  a  calculator  to  perform  basic  mathematical 
computations.  The  big  drawback  to  interactive  use  is  that 
no  editing  can  be  done  on  programs  that  are  longer  than  one 
line  when  typing  at  the  terminal.  If  interactive  mode  is 
desired,  the  following  command  should  be  issued.  Interpreted 
code  is  assumed  in  all  examples. 

ob j  i 
The  'i'  toggle   tells  the  interpreter  that   interactive  mode 
is  desired.     A  logon   message  with   date  and   time  appears 
next,  followed  by  the  prompt: 

Enter  Expression 
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At  this  point  programs  can  te  typed  directly  from  the 
terminal  and  executed.  To  step  execution  follow  the  last 
program  with  a  •!'.  A  statistical  summary  is  given  showing 
the  number  of  cells  created,  nunber  of  cells  returned  to  the 
system,  and  time  of  execution  before  termination. 
Evaluation  is  successfully  completed  with  the  message 

Evaluation  Completed. 
If  a  long   program  is  to  be  executed,   it   is  recommended  to 
place  it  in  a  file  so  editing  can  be  accomplished,  if  neces- 
sary.  The  command  to  interpret  a  program  from  a  file  is 

ob  j 
The  interpreter  then  responds  with  a  prompt  to   ask  for  the 
name  of  the  file  where  the  program  exists. 

File  for  ELC  Program: 
The  filename  can  be  up  to  eighty  characters  in  length. 

B-   EXECUTION  TBACE 

After  the  method  of  loading  the  program  is  determined, 
the  user  is  questioned  if  a  trace  is  desired.  A  trace 
prints  out  pertinent  intermediate  results  as  the  program  is 
executed  to  help  in  debugging.  Two  examples  of  items 
printed  out  are:  each  expression  sent  to  function  eval  and 
results  of  looking  up  a  var  parameter  in  an  association 
list.  Not  all  expressions  can  be  printed  out  because  some 
structures  are  recursive  and  an  attempt  to  print  them  out 
results  in  an  infinite  loop.  To  avoid  infinite  loops  addi- 
tional guestions  are  asked  about  the  user's  desire  to  print 
out  certain  structures  when  there  is  a  possibility  that  they 
could  be  recursive.  Invoking  the  trace  facility  obviously 
slows  execution  a  great  deal  tut  can  be  quite  helpful  in 
debugging  a  program. 


41 


C.   EEEOE  MESSAGES 

The  best  way  to  become  familiar  with  the  interpreters 
error  messages  is  to  study  the  error  handling  procedure  of 
the  interpreter  itself,  Appendix  C.  The  procedure  is  set  up 
like  a  table  displaying  all  the  error  messages  and  they  can 
be  easily  traced  back  to  their  sources.  The  interpreter  is 
designed  to  halt  exection  immediately  upon  detection  of  an 
error. 
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IV.  CONCIDSIONS 

A.   EFFICIENCY 

Appendix  B  contains  statistical  data  for  several  ELC 
programs.  Times  for  program  execution  are  given  for  both 
interpreted  and  compiled  versions  of  the  interpreter.  It  is 
not  suprising  that  the  compiled  version  always  ran  much 
faster  and  is  recommended  for  use.  The  interpreted  version 
of  the  ELC  interpreter  was  used  throughout  development, 
however,  because  it  took  half  the  time  that  compiling 
required. 

Profiles  for  all  sample  programs  are  also  included  in 
Appendix  C.  These  profiles  reveal  hints  on  how  the  inter- 
preter could  be  more  efficient.  The  data  shows  that  the 
interpreter  spends  most  of  its  time  in  the  primitive  func- 
tions, such  as  null,  first,  sum,  etc..  Efficiency  could  be 
improved  by  writing  these  functions  in  a  lower  level 
language,  such  as  assembly  language,  and  then  linking  these 
modules  in  at  run  time.  This  would  not  be  difficult  because 
these  functions  are  very  short  and  they  are  all  constructed 
in  the  same  manner,  e.g.,  all  the  Boolean  functions  are  the 
same  except  for  the  condition  being  checked.  When  the  lower 
level  code  is  completed  for  one  of  the  modules  it  could  be 
used  as  a  template  for  the  others. 

Efficiency  can  also  be  improved  by  replacing  the  associ- 
ation list  mechanism  for  looking  up  the  value  of  variables. 
Since  the  pairlis  function  always  adds  new  attribute  value 
pairs  to  the  front  of  the  current  environment  before  evalua- 
tion, it  is  clear  that  searching  an  association  list  is  not 
always  necessary  because  we  knew  the  value  is  at  the  front 
of  the  list.     A  better  method  is   to  use  an  array   to  hold 
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these  values  and  subscript  them  based  on  the  number  of 
scoping  lines  crossed  in  getting  from  a  use  of  the  variable 
to  .ts  definition.  A  detailed  explanation  of  this  method  is 
given  by  MacLennan  [Bef.  6]-  The  beauty  of  this  method  is 
that  it  eliminates  the  overhead  of  managing  the  pointers  of 
the  association  list  and  the  need  to  recursively  search  it, 
both  very  expensive  operations  in  terms  of  efficiency. 

Comparisons  are  also  made  in  Appendix  B  between  two 
recursive  ELC  programs  and  their  Pascal  counterparts.  The 
programs  calculate  n  factorial  and  generate  the  first  n 
elements  of  the  Fibonacci  sequence.  The  Pascal  programs  run 
faster,  which  is  not  suprising  because  there  is  one  less 
layer  of  software  invloved  in  their  execution.  The  time 
differences  are  less  than  a  second,  however,  and  with 
minimal  improvements  to  the  interpreter  can  be  improved. 

Finally,  a  more  efficient  memory  managing  system  should 
be  implemented.  Programs  executed  with  the  memory  manager 
are  very  slow  as  can  be  seen  by  comparing  the  run  times  of 
the  programs  listed  en  the  last  page  of  Appendix  3  with 
their  execution  times  without  the  memory  manager.  A  mark 
and  sweep  system  would  be  more  efficient  because  the  execu- 
tion of  a  program  would  not  be  impeded  unless  all  the  allo- 
cated memory  was  used.  On  the  other  hand,  the  reference 
counting  system  invokes  memory  management  procedures  and 
functions  throughout  program  execution.  Since  most  programs 
will  not  use  all  allocated  meaory  they  would  run  at  near 
normal  speed  (normal  speed  being  the  time  to  execute  a 
program  without  the  memory  manager) .  The  tradeoff  is  that 
the  interpreter  will  have  to  allocate  its  own  heap  space  and 
manage  it. 
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B.  STRUCTURING  PROGRAMS 

Programs  are  contained  in  one  list  so  they  can  be 
written  in  one  line,  but  this  does  not  always  present  a 
clear  view  of  what  the  program  does.  A  natural  method  of 
structuring  ELC  programs  evolved  through  experience.  The 
method  is  to  stack  the  arguments  of  functions  under  their 
calls.  For  example,  consider  this  call  to  the  primitive 
function  cons. 

<call  <var  cons> 
<list  a  b> 
<list  c  d  e>> 
This  convention  becomes   very  useful  in  large   programs  when 
many   functions  must   be  nested.     The   conditional  can  be 
structured  as 

<if  <<call  <boolean  exp.> 
<True  conseguert> 
<False  conseguent>>> 
Once  again  the  arguments  are  stacked  for  clarity. 

C.  FUTURE    IMPROVEMENTS 

There  are  several  improvements  that  can  immediately  be 
accomplished  for  the  interpreter. 

The  code  could  be  made  more  English  like.  This  could  be 
done  by  writing  a  frcnt  end  to  translate  a  higher  level  code 
into  the  ElC  code  used  in  this  report  or  by  completely 
changing  the  ELC  grammar.  Shile  making  more  readable 
programs  this  feature  would  decrease  efficiency. 

In  the  opposite  direction  the  code  could  be  made  more 
mathematical  in  nature,  similar  to  the  notation  used  by 
Backus  in  FP.  The  tradeoff  in  that  case  would  be  efficiency 
versus  readability. 

A  feature  should  also  be  added  to  allow  data  for  the  ELC 
programs  to  be  read  from  the  terminal  or  a  file.    Currently 
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data  must  be  inserted  in  the  program  itself.  This  could  be 
done  easily  by  modifying  the  interpreter  to  recognize  key 
words  that  trigger  a  read  operation. 

Finally,  the  interpreter  should  be  written  in  a  more 
portable  version  of  Pascal.  Berkeley  Pascal  has  several  non 
standard  features  such  as  the  alfa  type  that  make  its  code 
machine  dependent. 

D.   LESSOHS  LEARNED 

Writing  programs  in  ELC  becomes  easier  with  experience. 
This  was  primarily  because  detailed  programs  are  built  by 
combining  several  smaller  programs.  For  example,  the 
program  that  generates  the  trig  table  is  made  of  six  func- 
tions, each  a  program  in  its  cwn  right.  Once  the  single 
function  programs  are  tested,  they  can  be  easily  and  reli- 
ably used  to  build  other  prograas. 

E1C  programs  also  force  the  user  to  think  about  problems 
as  a  whole  when  programming.  For  example,  when  writing  the 
append  function  one  asks  the  question,  "How  would  I  physi- 
cally solve  this  problem?".  The  answer  is  by  taking  one 
element  at  a  time  from  one  list  and  adding  that  element  to 
the  second  list  until  the  first  list  is  empty.  That  expla- 
nation is  exactly  how  to  solve  the  problem  recursively  and 
the  ELC  program  reflects  that.  If  a  conventional  language 
was  used  to  solve  the  problem,  however,  the  programmer  would 
have  to  be  concerned  with  many  low  level  constructs  such  as 
assignment  statements  and  counter  variables.  After  seme 
experience,  dealing  with  problems  at  a  higher  level  became 
very  comfortable,  particularly  because  many  of  the  problems 
encountered  were  solved  using  the  same  technique. 
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APPENDS    k 

ELC    GRAMMAR 

Note:    f       '       denotes   literal    ccpy. 

ee    denotes   superscript-     (eel    means    one    or    more> 

<ELC    program>    ::=   atom| list | <recursive  exp. > | <abstract ion>| 

<application>|<let>    » !» 

Recursive   exp.>    ::=    *<    letrec1    <rec   identifier> 

<lambda    exp.>    <body>    •>• 

<body>    : :=    '<call    '    <rec  identifier>   <actuals>| 

<recursive    exp.>j<let>    •>' 

<rec    identifier>    ::=    <identifier> 

<identifier>  :  :=  <letter>  ee  10  |  «letter><number  |  letter>>ee1  0 
Note:  Ten  or  less  letters.  Corresponds  to  the  Berkeley 
Pascal   built   in    string,    pack€d   array    1..10   of    char. 

<abstraction>    ::=    •<   lambda*    <bound   variables> 

<abstraction   body>    ■>' 

<let>    ::=    «<let< ' <bound   variables>    •<» 

<abs tract ion>  J<application> | 
<primitive  application  >| 
<conditional> |<recursive    exp.>   '>• 

<application>   ::=    •<'    <lambda    exp.>    <actuals>ee1    •>* 

<bound  variables>    ::=  <letter>    ee1|    <identifier>    eel 

<abstracticn   body> : : =»< f<condi t ional>J <prim    call> | 

<abstraction>'> ' 
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<conditionai>: :=' < ,if<boolean    exp.> 

<list>|<look        var>|<const    exp.>i 
<prim   applic       |<boolean  exp.> 
<list> j <lockup    var>|<const    exp.>j 
<prim    applic. > | <boolean   exp.> 

<boolean   exp.>    ::=    f<call  <var'    <boolean   prim>    *>>' 

<boolean   prim>    ::=    a tom|null Jegualj membj GT| IT| GE 1 LE 

<prim    call>    :;=    '<var'    <primnam€>    *>' 

<primname> : :=f irst  j  rest  1 cons| at cm] null  1 sum| subt  j  prod  j  divi |subi 
equal ilen|memblrepr|GT| LT|  LE|  GE 

<prim  applic. >::=' <call' <prim    call><list>ee1 | 

<lockup   var>ee1 j <const   exp.>ee1    ■>■ 

<list>    : :=    '<   list'      <letter>ee  1    I    <letter>ee1    <list>ee1| 

<nuraber>ee1  <number>ee1 

<list>ee1    <letter>    eel 

<number>    eel    ■>■ 

<lookup   var>   ::=    •<    var *    <letter>i <identif ier>    '>' 

<const    exp.>   : :=    *<   con'    <number>ee1    j    <iist>    \    <letter>    '>' 

<actuals>    ::=   <list>    J    <lookup    var>    |    <const  exp.>    | 

<lookup   var>  <lookup    var> 

<list>  eel      <list>  eel 

<const.    exp.>  <const.    exp.> 

<letter>    ::=   <a..z|A..Z> 


<number> 
<digit>  : 


:=  <digit>ee1 J<digit>ee1  '.'  <digit>ee1 
=  <0..9> 


<atom>  ::  letter | number | identifier 
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APPENDIX    B 
SAMPLE    PfiCGBAMS 

General 

The  statistics  in  this  appendix  are  referred  to  as 
compiled  versus  interpreted.  This  means  compiled  and  inter- 
preted versions  of  the  ELC  interpreter.  Also  all  statistics 
refer  to  programs  run  on  an  interpreter  without  a  memory 
manager.  Run  times  are  much  slower  when  the  memory  manage- 
ment system  is  used. 

Inaction  Append 

Purpose 

The  append  function  concatenates  lists.  This  is 
different  than  the  primitive  cons  which  makes  its  first 
argument  the  first  element  of  another  list. 

Practical  Application 

Append  could  be  useful  if  the  argument  lists  were  large 
databases  that  had  to  be  combined.  This  is  common  practice 
in  database  work  where  many  small  databases  are  combined  to 
form  a  whole. 

Source  Code 

<letrec  append 
<lambda  <L  M> 

<if  «call  <var  null>  <var  L>> 
<var  H> 
<call  <var  cons> 

<call  <var  subXvar  LXcon  1>> 
<call  <var  append> 

<call  <var  restXvar  L>> 
<var  M>>  >>>> 
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<call    <var   ap     -nd> 

<list    <      n    gXcon    h>    <cor.      j>> 
<list  <con    q>    <con   rXcon  s>>>>! 

Results    cf    Append    Function    (Compiled    Interpreter) 

Enter    Expression 

<a,    b,    c,    d,    e,    f,    g,   h,    i,    j,     j,    1,    m,    n,    o,    p,    g,    r,    s,    t> 

Evaluation  Completed 

Statistics 
System  time  was        183  Billiseconds 
User  time  was  6  16  Billiseconds 


J  Module         Cells  created  | 

I I 

Idcprim                                          84  | 

icons                                            402  | 

j  readiden                                     57  | 

Ireadint                                         1  | 

I letrec                                           6  | 

|nuil                                             11  | 

Total   cells  561 

Results    of      Append    (E1C   Interpreter   interpreted      by   Berkeley 
Pascal) 

Enter   Expression 

<a,    b,    c,    a,    e,    f,    g,    h,    i,    j,  j,    1,    m,    n/    o,    p,    g,    r,    s,    t> 

Evaluation   Completed 
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Statistics 
System   time    was  366    nilliseconds 

User   time  was  6600    nilliseconds 


| Module 
■  _ 

Cells 

created 

I 
■ 

1  — 

J  dcpr im 

34 

1 

1 

I  cons 

402 

1 

| readiden 

57 

1 

Ireadint 

1 

1 

| letrec 

6 

1 

Inull 

11 

1 

Total    cells  561 

Profile  for  append    function 

Berkeley   Pascal    PXP    —    Version    2.12    (5/11/83) 

Wed    Dec    12    12:48    1984      test11.f 

Profiled   Thu    Dec    13    09:05    1984 

Line  Count 


f  unc 

printval 

cellcoant 

nullp 

first 

rest 

cons 

sub 

atomp 

nullp 

null 

assoc 

pairlis 

printval 
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1 

1 

33 

21 

36 

505 

63 

1477 

84 

3123 

94 

1692 

122 

402 

258 

10 

539 

190 

547 

1477 

564 

11 

599 

94 

643 

33 

663 

21 

702 

83 

704 

108 

714 

25 

770 

1 

827 

199 

835 

257 

843 

57 

867 

83 

879 

11 

880 

157 

881 

52 

882 

1 

884 

190 

947 

1 

1012 

11 

1041 

157 

1093 

41 

1198 

52 

1239 

28 

1261 

1 

r eadval 

nonblank 

readlist 

readint 

digit 

letter 

readident 

readval 

evcon 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

applyprim 

apply 

dcprim 

readf name 
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lunation  Reverse 

Purpose 

Takes  any  list  as  an  argument,  reverses  the  elements  of 
the  list  and  places  them  in  another  list. 

Practical  Application 

Reverse  is  used  primarily  as  a  sub-function  for  larger 
programs.  It  is  the  nature  cf  recursion  that  many  times 
result  lists  are  constructed  in  reverse  order.  The  reverse 
function  is  then  needed  to  regain  the  proper  order. 

discussion 

There  are  two  versions  of  reverse  included,  reverse  and 
revaux.  Reverse  makes  use  of  the  primitive  'conr'  to  build 
the  result  list  where  revaux  utilizes  a  null  list,  (<>)  ,  to 
huild  the  result  list  using  a  series  of  calls  to  'cons'.  It 
is  interesting  to  study  the  differences  in  efficiency 
tetween  the  two  functions.  Reverse  is  faster  and  uses  less 
memory.  The  reason  is  because  the  primitive  conr  was 
included  in  the  interpreter,  which  shortens  the  number  of 
steps  required.  Whether  time  and  memory  savings  justify 
including  another  primitive  in  the  interpreter  depend  on  how 
often  it  is  used.  The  use  of  the  reverse  function  is 
minimal  and  would  not  justify  including  a  primitive  only  for 
its  use. 

Source  Code 

<letrec  reverse 
<lambda  <L> 

<if  «call  <var  null>  <var  L>> 
<con  <>> 
<call  <var  conr> 

<call  <var  reverse) 

<call  <var  rest>  <var  L>>> 
<call  <var  sub>  <var  L>  <con  1>>>>>> 
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<call    <var   reverse>    <list    abcdefghi   j>>>>! 

Results   of   reversing    a   ten    element    list     (Compiled    version) 

Enter   Expression 

<jr    i#    h#    g,    f,    e,    d/    c,    b,    a> 

Evaluation   Completed 

********************************************************** 

Statistics 
Systeir  time  was        100  milliseconds 
User  time  was  516  milliseconds 


| Module         Cells  created   | 


| dcprim 
|  cons 
I readiden 
j  readint 
| letrec 
Inull 
j  conr 


84 

l 
1 

323 

1 

42 

1 

1 

1 

6 

1 

11 

1 

9 

J 

Total  cells  476 

Reversing  a  ten  element  list (interpreted) 
Enter  Expression 
<j/  i#  a,  g#  f#  e,  d,  c,  b,  a> 
Evaluation  Completed 

********************************************************** 

Statistics 
System    time   was  316    milliseconds 

User    time   was  5716    milliseconds 
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J  Module 

Cells 

created   | 

j  _  __  _ 

| dcprim 

84      | 

Icons 

323      | 

|  readiden 

42      | 

1 readint 

1      | 

1  letrec 

6      I 

|null 

11      I 

j  conr 

9      I 

Total  cells 


476 


Profile  of  reverse  function 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 

Wed  Dec  12  12:48  1984   test11.p 

Profiled  Thu  Dec  13  09:08  1984 


line 


Count 


1 

1 

33 

11 

36 

420 

63 

1349 

84 

2861 

94 

1545 

122 

323 

137 

10 

258 

10 

539 

169 

547 

1349 

564 

11 

599 

83 

643 

22 

663 

11 

702 

67 

f  unc 


printval 

cellcount 

nullp 

first 

rest 

cons 

conr 

sub 

atomp 

nullp 

null 

assoc 

pairlis 

printval 

readval 
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704 

91 

714 

24 

770 

1 

827 

167 

835 

210 

843 

42 

867 

67 

879 

11 

880 

135 

881 

52 

882 

1 

884 

169 

947 

1 

1012 

11 

1041 

135 

1093 

41 

1198 

52 

1239 

28 

1261 

1 

nonblank 

readlist 

readint 

digit 

letter 

readident 

readval 

eve  on 

evlis 

apply 

letrec 

e  il 

letrec 

evcon 

evlis 

applyprim 

apply 

deprim 

readf name 
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Function  Bevaux 

Source  Code 

<letrec  revaux 
<lambda  <L  H> 

<if  <<call  <var  null>  <var  L>> 
<var  M> 
<call  <var  revaux) 

<call  <var  rest)  <var  L» 
<call  <var  cons> 

<call  <var  sub>  <var  L>  <con  1>> 
<var  M> 
»>» 
<call  <var  revaux) 

<list   abcdefghij) 
<con  <»    »! 

Results  of  Revaux  (10  element  list,  compiled) 

Enter  Expression 

<j/  i#  h#  g,  £,    e,  d,  c,  b,  a> 

Evaluation  Completed 

Statistics 
System  time  was         166  milliseconds 
User  time  was  566  milliseconds 


1  Module  Cells  created  1 

, , 

Jdcprim  8U  \ 

Icons  383  | 

Ireadiden  47  j 

Ireadint  1  | 

lletrec  6  | 

57 


I  null 


11 


Total   cells 


532 


Results  of   revaux    (interpreted). 

Enter    Expression 

<j#    i,    k#    9*    f#    e,    d,    c,    b,    a> 

Evaluation  Completed 

Statistics 
Systec  time  was        366  milliseconds 
User  time  was         6333  milliseconds 


| Module 
I 

| dcprim 
I  cons 
| readiden 
J  readint 
I  letrec 
Inull 


Cells  created 

84 

383 

47 

1 

6 

11 


Total  cells 


532 


Profile  of  Revaux 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 

Wed  Dec  12  12:48  1984   testll.p 

Profiled  Fri  Dec  14  22:46  1984 


Line 

1 

33 
36 


Count 

1 

11 

476 


rune 


printval 
ceilcount 


63 

1466 

84 

3104 

94 

1672 

122 

383 

258 

10 

539 

180 

547 

1466 

564 

11 

599 

94 

643 

33 

702 

74 

704 

100 

714 

26 

770 

1 

827 

178 

835 

226 

843 

47 

867 

74 

879 

11 

880 

146 

881 

52 

882 

1 

884 

180 

947 

1 

1012 

11 

1041 

146 

1093 

41 

1198 

52 

1239 

28 

1261 

1 

nullp 

first 

rest 

cons 

sub 

atomp 

nullp 

null 

assoc 

pairlis 

readval 

nonblank 

readlist 

readint 

digit 

letter 

readident 

readval 

evcon 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

applyprim 

apply 

dcpr im 

readf name 
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Mag  Functional 

Purpose 

Functionals  are  functions  that  return  other  functions  as 
results.  The  map  functional  allows  the  user  to  take  any 
unary  function  and  apply  it  to  the  elements  of  a  list, 
returning  a  list  of  the  results.  In  this  example,  the  sine 
function  is  mapped  across  a  list  of  ten  angles. 

Practical  Application 

Map  could  be  used  extensively  in  business  applications. 
An  example  would  be  an  employee  database  where  the  same 
operations  must  be  accomplished  on  many  different  records. 
If  salaries  were  increased  acrcss  the  board,  a  version  of 
map  could  be  used  to  achieve  this. 

Source  Code 

<letrec    map 
<lambda   <f> 

<Iambda    <L> 

<if  <<call  <var  null>  <var  L>> 
<con  <>> 
<call  <var  cons) 

<call  <var  f>  <call  <var  firstXvar  L»> 
<call  <call  <var  map>  <var  f>> 

<call  <var  rest>  <var  L»>>»» 
<call  <call  <var  map>  <var  sin» 

<list  <con  45>  <con  6  C>  <con  90>>>  >! 

Results  of  map  functional  (map  sine) Compiled 
Enter  Expression 

<0. 707107,  0.866025,  1.000000,  0.913545,  0.573576, 
0.342020,  0.422618,  0.275637,  0.939693,  0.999391> 

Evaluation  Completed 
********************************************************** 
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Statistics 
System  time  was  216    milliseconds 

User    time    was  683    milliseconds 


jModule 

Cells 

created 

I 
i 

I  —  ~ 

1 

I dcprim 

84 

1 

|  cons 

445 

1 

jreadiden 

52 

1 

| readint 

10 

1 

| letrec 

6 

1 

Jeval 

11 

1 

|null 

11 

1 

Isinj 

10 

1 

Total    cells  629 

Map    sine    (interpreted) 
Enter   Expression 

<0. 707107,    0.866025,    1.000000,    0.913545,    0.573576, 
0.342020,    0.422618,    0.275637,    0.939693,    0.999391> 

Evaluation    Completed 

Statistics 
Systeir   time   was  416    milliseconds 

User   time    was  7666    milliseconds 


| Module 

C 

ells 

created 

I 

■ 

1  " 

I dcprim 

84 

1 

1 

I  cons 

445 

I 

I  readiden 

52 

1 

j  readint 

10 

1 

61 


jletrec  6  | 

Jeval  11  | 

|null  11  | 

|sinp  10  | 

Total  cells  629 

Profile  for  map  functional 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 

Wed  Dec  12  12:48  1984   test11.p 

Profiled  Thu  Dec  13  10:15  1984 

Line       Count 

f  unc 

printval 

cellcount 

nullp 

first 

rest 

cons 

sinp 

atomp 

nullp 

null 

assoc 

pairlis 

printval 

readval 

nonblank 

readlist 

readint 

digit 

letter 

readident 
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1 

1 

33 

11 

36 

573 

63 

1666 

84 

3579 

94 

1959 

122 

445 

411 

10 

539 

212 

547 

1666 

564 

11 

599 

104 

643 

44 

663 

11 

702 

103 

704 

144 

714 

41 

770 

10 

827 

217 

835 

279 

843 

52 

867 

103 

879 

11 

880 

167 

881 

73 

882 

1 

884 

212 

947 

1 

1012 

11 

1041 

167 

1093 

51 

1198 

73 

1239 

28 

1261 

1 

r eadval 

evcon 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

applyprim 

apply 

dcpriiu 

r eadfname 
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HaixilLl  Function 

Purpose 

The  halving  function  takes  a  list  of  numbers  and  returns 
a  list  of  all  the  elements  divided  in  half. There  is  really 
no  practical  application  for  this  function  but  it  demon- 
strates the  use  of  the  •bu'  functional  which  changes  a 
binary    operator    to    a    unary   operator.  If    you    divide   a   list 

of  integers  by  2  it  is  more  efficient  to  fix  the  second 
operand  of  the  division  instead  of  evaluating  2  as  a 
constant    each    time    the   division    takes    place. 

<letrec    map 
<lambda    <f> 
<lambda   <L> 

<if   <<call    <var    null>    <var    L>> 
<con   <» 
<call  <var   cons) 

<call   <var    f>    <call   <var  firstXvar   L»> 
<call   <call   <var    map>    <var    f>> 

<call    <var   rest>   <var    L»>»>» 
<let    «bu>   «lambda   <f    k> 

<lamtda   <x> 

<call  <var  f>  <var  k>  <var  x>>>>  > 
<let  «revf>  <<lambda  <f> 

<lamtda  <x  y> 

<call  <var  f>  <var  y>  <var  x>>>>> 
<call 

<call  <var  map> 

<call  <var  bu> 

<call  <var  revf>  <var  divi>> 
<con  2»> 
<list  <con  4>  <con  6>  <con  8>  <con  18>> 

Results  of  halving  function  (compiled) 
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Enter   Expression 
<  2,  3,  4, 

13,  14,  15> 


S, 


10, 


11, 


12, 


Evaluation  Completed 

********************************************************** 

Statistics 
System  time  was         183  milliseconds 
User  time  was  966  milliseconds 


j  Module 

I 

J  dcpr im 
|  cons 
| readiden 
| readint 
j letrec 
|  eval 
inull 
I  divi 


Cells  created 

84 
674 
87 
11 
6 
15 
11 
10 


Total  cells 


898 


Results  of  halving  (interpreted) 
Enter  Expression 

<      2,      3,  4,       S, 

13,      14,  15> 


10, 


11, 


12, 


Evaluation  Completed 

********************************************************** 

Statistics 
System    time   was  483    milliseconds 
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Jser  time  was 


10183  milliseconds 


| Module 

1  —  —  ■  —  —  — 

Cells  created   | 

| dcprim 

84      | 

|  cons 

674      | 

|  readiden 

87      | 

| readint 

11      I 

1  letrec 

6      I 

|  eval 

15      | 

Inull 

11      I 

j  divi 

10      | 

Total  cells 


898 


Profile  for  halving  function  (use  of  bu) . 
Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984   test11.j 
Profiled  Thu  Dec  13  10:03  1984 


Line 


Count 


1 

1 

33 

11 

36 

842 

63 

2057 

84 

4420 

94 

2494 

122 

674 

233 

10 

539 

305 

547 

2057 

564 

11 

599 

166 

f  unc 


printval 

cellcount 

nullp 

first 

rest 

cons 

divi 

atomp 

nullp 

null 

assoc 
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643 

103 

663 

11 

702 

168 

704 

238 

714 

70 

770 

11 

827 

350 

835 

448 

843 

87 

867 

168 

879 

11 

880 

240 

881 

95 

882 

1 

884 

305 

947 

1 

1012 

11 

1041 

240 

1093 

51 

1198 

95 

1239 

28 

1261 

1 

pairlis 

printval 

r eadval 

nonblank 

readlist 

readint 

digit 

letter 

readident 

readval 

evcon 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

applyprim 

apply 

dcpr im 

readf name 
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Collating  functi on 

Purpose 

Collate  takes  two  sorted  lists  and  merges  tha m  into  one 
sorted  list. 

P£§ctical  Application 

Sorting  and  collating  are  standard  office  functions  that 
benefit  from  automation.  A  sorting  function  needs  to  be 
combined  with  collate  to  initially  sort  the  sublists. 

Source  Cede 

<letrec  collate 
<lambda  <L  M> 

<if  <<call  <var  null>  <var  L>> 
<var  M> 

<if  «call  <var  null>  <var  M>> 
<var  I> 
<if  <<call  <var  LE> 

<call  <var  sub>  <var  L>  <con  1» 
<call  <var  sub>  <var  M>  <con  1»> 
<call  <var  cons> 

<call  <var  sub>  <var  L>  <con  1» 
<call  <var  collate> 

<call  <var  rest>  <var  1>> 
<var  il>» 
<call  <var  cons) 

<call  <var  sub>  <var  M>  <con  1» 
<call  <var  collate) 
<var  L> 
<call<var  rest> 

<var  M»>»>»»> 
<call<var  collateXlist  2  5  6  8  12><list  3  3  6  7  9  10>»! 

Result  of  Collate  Function,  Co&piled 
Enter  Expression 
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2, 
8, 


3, 

9, 


3, 

10, 


12> 


6, 


6, 


7, 


Evaluation  Completed 


********************************************************** 

Statistics 
Systen  time  was        166  milliseconds 


User  time  was 


1066  milliseconds 


Module 

dcprim 

cons 

readiden 

readint 

letrec 

null 

IE 


Cells  created 

84 
531 
80 
15 
6 
22 
10 


Total  cells 


748 


Collate  function  (interpreted) 

Enter  Expression 

<      2,       3,       3, 

8,       9,      10,      12> 


c 


6, 


6, 


7, 


Evaluation  Completed 

***************#***************+************* ^ ************ 

Statistics 
Systen  time  was        633  milliseconds 
User  time  was         11316  milliseconds 
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| Module 

Cells 

created   J 

1 — 

j  dcprim 

84      J 

|  cons 

531      | 

|  readiden 

80      | 

| readint 

15      | 

|  letrec 

6      1 

|null 

22      | 

|LE 

10      | 

Total  cells 


748 


Profile  for  collate  function 

Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 

Wed  Dec  12  12:48  1984   test11.f 

Profiled  Thu  Dec  13  10:07  1984 


line 


Count 


1 

1 

33 

12 

36 

69  2 

63 

2566 

84 

5526 

94 

2921 

122 

531 

258 

30 

384 

10 

394 

10 

539 

335 

547 

2566 

564 

22 

599 

166 

643 

33 

f  unc 


printval 

cellcount 

nullp 

first 

rest 

cons 

sub 

LEp 

LE 

a  tomp 

nullp 

null 

assoc 

pairlis 


70 


663 

12 

702 

150 

704 

20  5 

714 

55 

770 

15 

827 

332 

835 

427 

843 

80 

867 

150 

879 

32 

880 

260 

881 

93 

882 

1 

884 

335 

947 

1 

1012 

32 

1041 

260 

1093 

82 

1198 

93 

1239 

28 

1261 

1 

printval 

readval 

nonblank. 

readlist 

readint 

digit 

letter 

readident 

readval 

evcon 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

applyprim 

apply 

dcprim 

r eadfname 
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Composition  Functional 

Purpose 

Composition  allows  the  output  of  one  function  to  act  as 
the  input  to  another  function. 

Practical  Application 

Composition  could  be  used  in  business  applications  as  a 
way  of  querying  a  database  with  multiple  conditions.  For 
example,  utilizing  the  filter  function,  a  user  could  ask  for 
records  of  employees  that  satisfy  a  certain  condition  and 
then  apply  another  call  to  filter  with  a  further  refined 
condition  such  as  all  employees  in  department  5  that  make 
more  than  two  thousand  dollars  a  week.  In  this  example 
mapsin  and  reverse  are  composed.  The  composition  function 
is  named  dot  to  correspond  to  Backus' s  FP  language  which 
actually  includes  this  as  an  operator  in  the  language. 

Source  Code 

<letrec  reverse 
<lambda  <L> 

<if  <<call  <var  nuil>  <var  L>> 
<con  <>> 
<call  <var  conr> 

<call  <var  reverse) 

<call  <var  rest>  <var  L>>> 
<call  <var  sub>  <var  L>  <con  1»  >>>> 

<letrec  mapsin 
<lambda  <L  > 

<if  <<call  <var  null  >  <var  L  » 
<con  <>> 
<call  <var  cons  > 

<call  <var  sin  > 

<call  <var  first  Xvar  L  >>> 
<call  <var  mapsin  > 
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<call    <var    rest   > 

<var    L   >>>   >>>> 
<let   «dot>  <<lambda  <f1    f2> 
<lambda   <x> 

<call   <var   fIXcalKvar   f2Xvar    x»>>» 
<call 

<call  <var   dot>  <var   mapsin>   <var    reverse>> 
<list    <con   45>    <con    60>    <con    90>>   >»»! 

Results   of  composites    (compiled) 

Enter   Expression 

<1. 000000,    0.866025,    0.707107> 

Evaluation   Completed 

Statistics 
Systeir   time  was  250    milliseconds 

User   tine    was  616    milliseconds 


IModule  Cells   created       J 


I 

I deprim 

84 

1 

1 

I  cons 

395 

! 

1 readi len 

85 

J 

| readint 

4 

1 

| letrec 

12 

1 

leval 

2 

1 

jnull 

8 

1 

jconr 

2 

1 

I  sinp 

3 

1 

Total   cells  595 
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Results    cf   composition    (interpreted) 

Enter    Expression 

<1. 000000,    0.866025,    0.707107> 

Evaluation   Completed 

********************************************************** 

Statistics 
System   time   was  583    milliseconds 

User   time   was  5966    milliseconds 


| Module  Cells   created      | 


I" 

i  dcpr im 

84 

1 
i 

Icons 

395 

i 

| readiden 

85 

1 

j  readint 

4 

1 

| letrec 

12 

1 

i  eval 

2 

1 

I  null 

8 

1 

Iconr 

2 

1 

j  sinp 

3 

1 

Total   cells  595 

Berkeley   Pascal   PXP    --    Version   2.12    (5/11/83) 
Wed    Dec    12    12:U8    1984      test11.p 
Profiled    Mon    Dec    17    18:51    1984 

Line  Count 


f  unc 

printval 
celicount 
nuilp 
first 
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1 

1 

33 

4 

36 

539 

63 

988 

84 

2111 

94 

1148 

122 

395 

137 

3 

258 

3 

411 

3 

539 

123 

547 

988 

564 

8 

599 

61 

643 

23 

663 

4 

702 

154 

704 

219 

714 

65 

770 

4 

827 

377 

835 

466 

843 

85 

867 

154 

879 

8 

880 

96 

881 

39 

882 

2 

884 

123 

947 

2 

1012 

8 

1041 

96 

1093 

29 

1198 

39 

1239 

28 

1261 

1 

rest 

cons 

conr 

sub 

sinp 

atomp 

nullp 

null 

assoc 

pairlis 

printval 

readval 

nonblank 

readlist 

r eadint 

digit 

letter 

readident 

readval 

evcon 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

applyprim 

apply 

dcprim 

readfname 
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l££2.u.§l£I   Table    Generator 

Purpose 

This  program  takes  a  finite  set  of  text  and  creates  a 
frequency  table  of  the  words  used  and  how  many  times  they 
are  used. 

Practical   Application 

This  program  could  be  useful  if  extended  to  recognize 
patterns  in  large  blocks  of  data.  Also,  in  military  intel- 
ligence work,  it  could  be  vaulabie  to  see  how  many  times  a 
persons  name  appears  in  a  newspaper  to  gain  some  insight 
into    how   important    they    might    be. 

<letrec    dom 
<lambda    <L> 

<if   <<caii    <var  null>    <var  L>> 
<con  <» 
<call   <var  cons> 

<call  <var   first> 

<call    <var   first>    <var   L>>> 
<call  <var    dom> 

<call   <var  rest> 

<var   L>>»>>> 
<letrec  isfinfunc 
<lambda   <T> 

<if   <<call   <var  null>    <var  T>> 
<con    true> 
<if    <<call  <var  egual> 

<call    <var   len> 

<call    <var   first>   <var    T»> 
<con    2» 
<if    «call   <var   e--lual> 

<cal"    <var   meab> 

call   <var    first> 

<call   <var    dom> 
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<var  T>>> 
<call  <var  rest> 

<call  <var  dom> 
<var  T>>>> 
<con  true>> 
<con  false> 
<call  <var  isfinfunc> 
<call  <var  rest) 
<var  T»>>> 
<con  false»»>> 
<letrec  overlay 
<lamlda  <T  pr> 

<if  <<call  <var  egual> 

<call  <var  isfinfunc>  <var  T>> 
<con  true>> 
<if  «call  <var  null>  <var  T>> 

<call  <var  cons)  <var  pr>  <con  <>>> 
<if  <<call  <var  equal> 

<call  <var  first>  <var  pr>> 
<call  <var  first> 

<call<var  first> 
<var  T>»> 
<call  <var  overlay) 

<call  <var  rest>  <var  T>> 
<var  pr>> 
<call  <var  cons> 

<call  <var  first>  <var  T>> 
<call  <var  overlay> 

<call  <var  rest>  <var  T>> 
<var  pr>>>>»> 
<con  Tnotffunc»>> 
<letrec  lookup 
<lamtda  <T  k> 

<if  <<call  <var  null>  <var  T>> 
<con  notfound> 
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<if  <<call  <var  equal> 
<var  k> 
<call  <vai  first> 

<call  <var  first>  <var  T>>>> 
<call  <var  first> 

<call  <var  rest) 

<call  <var  first>  <var  T>>>> 
<call  <var  lookup) 

<call  <var  rest>  <var  T>> 
<var  k>> 

<let  <<occur>  <<laml)da  <w  F> 

<if  <<call  <var  equal) 

<call  <var  memb> 
<var  w> 

<call  <var  dom> 
<var  F>>> 
<con  trae>> 
<call  <var  lookup> 
<var  F> 
<var  w>> 
<coe  0»>» 
<letrec  freg 
<lambda  <T> 

<if  <<call  <var  nuli>  <var  T>> 
<con  <>> 
<call  <var  overlay) 

<call  <var  freg) 

<call  <var  rest)  <var  T>>> 
<call  <var  cods) 

<call  <var  first)  <var  T>> 
<call  <var  cons) 

<call  <var  sum) 

<call  <var  occur) 

<call  <var  first) 


<var  T>> 
<call  <var  freg> 

<call  <var  rest) 
<var  T»» 
<con  1» 

<CCI1     <>>>»>>> 

<call   <var   freg> 

<call  <var   repr> 

<finset   This   is   the    block    of    text>»>>>>>>> ! 

Results   of   frequency  table    generator    (compiled) 


Enter  Expre 

ssion 

«text, 

1> 

,  <of, 

1> 

,  <block, 

1> 

,    <the, 

1> 

,  <is, 

1> 

t    <This, 

1> 

Evaluation   Completed 

Statistics 
System    time   was  49  16    milliseconds 


User   time    was 


157966    milliseconds 


| Module 

C 

ells 

created   | 

1  ~ 

j  dcprim 

84      | 

icons 

49559      J 

j  readiden 

313      | 

1 readint 

3      I 

j letrec 

30      | 

Jeval 

1      | 

79 


j  null 
j  memt 
|  equal 
|  sum 
lien 


4554 
666 

1806 
255 
411 


Total  cells  57682 

Results   of   frequency   table    generator (interpreted) 


Enter  Exp. 

cession 

«text, 

1> 

,  <of, 

1> 

,  <block, 

1> 

t    <the, 

1> 

/  <is, 

1> 

,  <This/ 

1> 

> 

Evaluation    Completed 

*******************************  *************************** 

Statistics 
Systec    time   was  23900    milliseconds 

User   time    was  1990866    milliseconds 


| Module 

Cells  created   | 

i 

| dcprim 

84      | 

|  cons 

49559      | 

|  readiden 

313      | 

| readint 

3      I 

j letrec 

30      | 

|  eval 

1      | 

|null 

455tt      | 

|  memt 

6to      | 

80 


I  equal 
1  sum 
|len 


1806 
255 
411 


Total  cells 


57682 


Profile  for  frequency  table  function. 
Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984   test11.p 
Profiled  Thu  Dec  13  10:20  1984 


Line 


Count 


1 

1 

33 

19 

36 

57626 

62 

1806 

63 

664983 

84 

1404922 

94 

743026 

122 

49559 

158 

255 

273 

2267 

291 

1806 

539 

7  0799 

547 

664983 

564 

4554 

576 

1233 

587 

411 

599 

36403 

643 

10367 

663 

19 

702 

530 

704 

744 

714 

214 

f  unc 


printval 

cellcount 

equal 

nullp 

first 

rest 

cons 

sum 

equalp 

equal 

atomp 

nullp 

null 

lenp 

len 

assoc 

pairlis 

printval 

readval 

nonblank 

readlist 


81 


770 

3 

82  7 

1393 

835 

1709 

843 

313 

867 

530 

879 

6360 

880 

53265 

881 

23613 

882 

5 

884 

7  0799 

947 

5 

1012 

6360 

1041 

53265 

1061 

1115 

1071 

666 

1083 

1 

1093 

18804 

1198 

23613 

1239 

28 

1261 

1 

readint 

digit 

letter 

readident 

readval 

evcon 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

membp 

memb 

isfinset 

applyprim 

apply 

dcprim 

readfname 
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Factorial  function 

Purpose  Computes  the  factorial  cf  n,  where  n  =  0,  1 ,  2,  ... 

Discussion 

Factorial  functions  written  in  ELC  and  Pascal  have  been 
included  to  compare  the  relative  efficiency  of  the  inter- 
preter versus  a  conventional  high  level  language  compiler- 
Factorial  is  computed  for  n  =  1  to  10.  The  results  are  not 
suprising  in  that  the  Pascal  version  is  much  faster. 

Source  Code  (ELC) 

<letrec   fact 
<lamhda    <n> 

<if   <<call    <var  e^ual>    <var   n>    <con    0>> 
<con    1> 

<call    <var  prod> 
<var  n> 
<call   <var    fact> 

<call    <var   subt>    <var   n>    <con    1>» 

>>>> 
<call   <var   fact>    <con    10» 

Results   of   ELC    factorial   function   for   n    =    1.-10 

fact  (0) 

Enter   Expression 

1 
Evaluation    Completed 

********************************************************** 

Statistics 
System  time  was         83  milliseconds 
User  time  was  233  milliseconds 


j Module         Cells  created   | 


83 


dcprim 

cons 

readiden 

readint 

letrec 

equal 


84 
202 

30 
4 
6 
1 


Total  cells  327 

fact  (1) 

Enter    Expression 

1 
Evaluation   Completed 

********************************************************** 

Statistics 
Systen  time  was         83  milliseconds 
User  time  was  266  milliseconds 


| Module 

Cells  created   J 

I  — 

| dcprim 

84      I 

|  cons 

212      | 

I readiden 

30      | 

| readint 

4      I 

I letrec 

6      I 

j  equal 

2      I 

Jsubt 

1      j 

J  prod 

1      | 

Total  cells 

fact  (2) 

Enter  Expression 

2 
Evaluation  Completed 


340 


84 


********************************************************** 

Statistics 
Systeo  time  was         133  milliseconds 
User  time  was  233  milliseconds 


I  Module 


| dcprim 
|  cons 
| readiden 
|  readint 
I letrec 
|  equal 
|sutt 
|  prod 


Cells  created 

84 
222 

30 
4 
6 
3 
2 
2 


Total  cells  353 

fact  (3) 

Enter    Expression 

6 
Evaluation   Completed 

********************************************************** 

Statistics 
Systeir   time   was  133    milliseconds 

User   time   was  266    milliseconds 


| Module 

I 

I dcprim 
I  cons 
| readiden 
|  readint 


Cells  created 

34 

232 

30 

4 
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j letrec 
|  equal 
|  sunt 
j  prod 


Total  cells  366 

fact  (4) 

Enter  Expression 

24 
Evaluation  Completed 

Statistics 
Systen  time  was        216  milliseconds 


User  time  was 


283  milliseconds 


| Module 


I 


I dcprim 
|  cons 
| readiden 
| readint 
j letrec 
I  equal 
|  subt 
I  prod 


Cells  created 

84 
242 

30 
4 
6 
5 
4 
4 


Total  cells  379 

fact  (5) 

Enter    Expression 

120 
Evaluation   Completed 

********************************************************** 
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Systen  time  was 
User  time  was 


Statistics 

116  milliseconds 

350  milliseconds 


| Module 


1 


j  dcprim 
|  cons 
J  readiden 
| readint 
|  letrec 
| equal 
jsubt 
|  prod 


Cells  created 

84 
252 

30 
4 
6 
6 
5 
5 


Total  ceils  392 

fact  (6) 

Enter   Expression 

720 
Evaluation   Completed 

********************************************************** 

Statistics 
System  time  was        116  milliseconds 
User  time  was  4  16  milliseconds 


| Module 

I 

I dcprim 
i  cons 
1 readiden 
1 readint 
i letrec 
jequal 


Cells  created 

34 

262 

30 

4 
6 

7 


87 


Isubt 
|  pi  ;d 


Total  cells  405 

fact  (7) 

Enter    Expression 

5040 
Evaluation   Completed 

********************************************************** 

Statistics 
Systen  time  was        133  milliseconds 


User  time  was 


400  milliseconds 


| Module 

Cells 

created   | 

I dcprim 

84      | 

|  cons 

272      | 

j  readiden 

30      | 

| readint 

4       I 

| letrec 

6      I 

| equal 

8      I 

Isubt 

7      I 

I  prod 

7      | 

Total  cells  418 

fact  (8) 

Enter  Expression 

40320 

Evaluation  Completed 

********************************************************** 

Statistics 
System   time  was  133    milliseconds 


User  time  was 


433  milliseconds 


j  Module 

Cells 

created   | 

1  - 

] dcprim 

84      | 

|  cons 

282      1 

j  readiden 

30      | 

| readint 

4      1 

j letrec 

6      I 

jegual 

9      1 

|subt 

8      1 

j  prod 

8      I 

Total  cells  431 

fact  (9) 

Enter  Expression 

362880 

Evaluation  Completed 

********************************************************** 

Statistics 
SysteE  time  was        150  milliseconds 
User  time  was  450  milliseconds 


| Module 

Cells  created   J 

1  ~   ~ 
I dcprim 

84      | 

I  cons 

292      | 

I readiden 

30      | 

1 readint 

4      1 

I letrec 

6      i 

I  equal 

10      | 

Jsubt 

9      I 

J  prod 

9      I 

89 


Total  calls 


444 


fact  (10) 

Enter    Expression 

3628800 

Evaluation   Completed 

********************************************************** 

Statistics 
Systeir    time   was  183    milliseconds 

User    time   was  450    milliseconds 


Module 

dcpr im 

cons 

readiden 

readint 

letrec 

equal 

subt 

prod 


Cells  created  1 
I 

84  | 

302  1 

30  | 

0  I 

6  I 

11  I 

10  | 

10  I 


Total  cells 


457 
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Factorial  function  written  in  Berkely  Pascal 

Source  Code 

program   fact  (input,    output)  ; 
var   ans,n:integer ; 

function   factorial  (n: integer) : integer ; 
var  fact : integer; 
begin 

if   n   =    0    then 

fact    :=    1 
else 

fact    :=    n  *     (factorial    (n   -    1))  ; 
factorial    :=    fact; 
end;     {function    factorial} 

begin 

writeln (* Input  n:  *); 

readln  (n)  ; 

ans  :=  factorial (n) ; 

writeln  (ans)  ; 

writeln ('System  Clock  • ,sysclock: 10  ,'  millisec'); 

writeln  (•  User  Clock    ^clocktlO  ,*  millisec1); 
end-  {Program  fact} 

Results  of  factorial  function  in  Berkeley  Pascal,  n=  1..10. 

Input  n=0 
1 
System  Clock         33  millisec 
User  Clock  16  millisec 

Input  n=1 
1 
System  Clock         33  millisec 
User  Clock  0  millisec 
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Input  n=2 
2 
System  Clock         33  millisec 
User  Clock  0  millisec 


Input  n=3 
6 
System  Clock         33  millisec 
User  Clock  0  millisec 


Input  n=4 
24 
System  Clock         33    millisec 
User  Clock  0  millisec 


Input  n=5 
120 
System  Clock         33  millisec 
User  Clock  0  millisec 


Input  n=6 
720 
System  Clock         33  millisec 
User  Clock  millisec 


Input  n=7 
5040 
System  Clock         16  millisec 
User  Clock  16  millisec 
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Input  n=8 
40320 
System  Clock         33  millisec 
User  Clock  0  millisec 


Input  n=9 
362860 
System  Clock         33  millisec 
User  Clock  0  millisec 


Input  n=10 

3628800 
System  Clock         66  millisec 
User  Clock  16  millisec 

Profile  for  ELC  factorial  function 
3erkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984   test  1 1 . j 
Profiled  Thu  Dec  13  09:56  1984 


line       Count 


1 

1 

33 

1 

36 

401 

62 

11 

63 

954 

84 

2064 

94 

1132 

122 

30  2 

183 

10 

208 

10 

273 

11 

291 

11 

539 

150 

f  unc 

printval 

cellcount 

equal 

nullp 

first 

rest 

cons 

subt 

prod 

egualp 

equal 

atomp 
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547 

954 

599 

73 

643 

22 

663 

1 

7  02 

56 

704 

78 

714 

22 

741 

0 

770 

4 

827 

129 

835 

163 

843 

30 

867 

56 

879 

11 

880 

115 

881 

42 

882 

1 

884 

150 

947 

1 

1012 

11 

1041 

115 

1093 

31 

1198 

42 

1239 

28 

1261 

1 

nullp 

assoc 

pairlis 

printval 

readval 

nonblank 

readlist 

readrea 

readint 

digit 

letter 

readident 

readval 

evcon 

evlis 

apply 

letrec 

eval 

letrec 

evcon 

evlis 

applyprim 

apply 

dcprim 

readf name 
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Zik2£^cci   Sequence    Generation    Program  (No    'let'    statement) 

Purpose 

This  program  generates  the  first  n  elements  of  the  fibo- 
nacci  seguence. 

Discussion 

This  function  is  educational  in  that  it  shows  how  effi- 
ciency of  ELC  programs  can  be  improved  through  the  use  of 
the  "let1  statement.  The  definition  of  the  Fibonacci 
seguence  is: 

fib(1)  =  <1> 
fib  (2)  =  <1  1> 

fib(n  =  3,  4,  ..  .)  = 

cons  ((fib  (n-1)sub  1)  +  (f ib  (n-2)  sub  2)),  f  ib  (n-  1)  )  , 
where  sub  1,  2  means  subscript. 

The  tine  consuming  part  of  this  function,  when  written  in 
ELC,  is  calculating  fib  of  n- 1  three  times  to  find  the  next 
element  of  the  seguence. This  can  oe  avoided  by  using  a  let 
statement  to  calculate  fib(n-1)  only  once  for  each  itera- 
tion. The  system  time  taken  tc  generate  fib (10)  when  using 
the  let  statement  was  approximately  .2  seconds  compared  to 
13  seconds  when  a  'let1  was  not  used. This  in  not  suprising 
since  when  not  using  the  'let'  the  time  of  execution  will 
increase  exponentially  as  n  increases. 

Notice  also  that  due  to  the  nature  of  recursive 
construction  of  lists  the  seguence  is  constructed  in  reverse 
order.  To  correct  this  the  reverse  function  is  included  and 
applied  to  the  generated  sequence  before  printing. 

Source  Code 

<letrec   reverse 
<lambda    <L> 

<if   <<call    <var  null>    <var  L>> 
<con   <>> 
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<call  <var  conr> 

<call  <var  reverse> 

<call  <var  rest)  <var  L>>> 
<call  <var  sub>  <var  L>  <con  1>>  >>>> 
<letrec  fibo 
<lambda  <n> 

<if  <<call  <var  egual>  <var  n>  <con  0>> 
<con  <>> 

<if  <<call  <var  egual>  <var  n>  <con  1>> 
<con  <1» 

<if<<call  <var  egual>  <var  n>  <con  2>> 
<ccn  <1  1» 
<call  <var  ccns> 

<call  <var  sum> 

<call  <var  sub> 

<call  <var  fibo> 

<call  <var  subt> 
<var  n> 
<con  1»> 
<con  1>> 
<call  <var  sub> 

<call  <var  fibo> 

<call  <var  subt> 
<var  n> 
<con  1»> 

<con  2>» 
<call  <var  fibo> 
<call  <var  subt>  <var  n>  <con  1»» 

<call  <var  reverse) 

<call  <var  fibo>  <con  1 0 > » > > I 

Results  of  fib  (3.. 10)  without  a  let  statement 

fib  (3) 

Enter  Expression 
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<      1,       1,       2> 

Evaluation  Completed 

********************************************************** 

Statistics 
Systeff  time  was         183  milliseconds 
User  time  was  733  milliseconds 


| Module         Cells  created   | 


Idcprim  84      | 

Icons  428      | 

ireadiden  105      | 

Ireadint  11      | 

Jletrec  12      | 

Jequal  12      | 

|subt  3      | 

jsum  1      ] 

|null  4      | 

jconr  2      | 

Total  cells  662 

fib  (4) 

Enter  Expression 

<      1,       1,  2,       3> 

Evaluation  Completed 

********************************************************** 

Statistics 

System  time  was  166  milliseconds 

User  time  was  1250  milliseconds 
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Module 

dcpr im 

cons 

readiden 

readint 

letrec 

equal 

subt 

sum 

null 

conr 


Cells  created 

84 
570 
105 
11 
12 
39 
12 

4 

5 
3 


Total  cells  845 

fib  (5) 

Enter  Expression 

<      1,       1.       2, 

Evaluation  Completed 


5> 


*******************************  ************  *******  ******** 

Statistics 
Systen  time  was        216  milliseconds 
User  time  was         2566  milliseconds 


| Module 

Cells 

created   j 

I dcpr im 

84      | 

|  cons 

976      | 

| readiden 

105      | 

I readint 

11      I 

| letrec 

12      j 

|  equal 

120      | 

|  subt 

39      | 

98 


sum 

null 

conr 


13 
6 

4 


Total  cells  1370 

fib  (6) 

Enter  Expression 

<      1,       1,       2, 

Evaluation  Completed 


■3 


5, 


8> 


**************  ******************************************** 

Statistics 
System  time  was        300  milliseconds 
User  time  was         6350  milliseconds 


Module 

dcprim 

cons 

readiden 

readint 

letrec 

equal 

subt 

sum 

null 

conr 


Cells  created 

84 

2174 

105 

11 

12 

363 

120 

40 

7 

5 


Total  cells  2921 

fib  (7) 

Enter  Expression 

<      1,       1,       2,       3, 

Evaluation  Completed 


5, 


8, 


13> 
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********************************************************** 

Statistics 
System  time  was        666  milliseconds 
User  time  was         17766  milliseconds 


Module 

dcprim 

cons 

readiden 

readint 

letrec 

equal 

subt 

sum 

null 

conr 


Cells  created   J 


84 

5748 

105 

11 

12 

1092 

363 

121 

8 

6 

Total  cells  7550 

fib  (8) 

Enter  Expression 

<      1/       If       2,       3,       5,       8,      13, 
21> 

Evaluation    Completed 
********************************************************** 

Statistics 
System   time  was  1633    milliseconds 

User   time    was  51716    milliseconds 


IModule 


Cells  created   | 


100 


I dcprim 
|  cons 
| readiden 
Jreadint 
| letrec 
j  equal 
Jsubt 
|  sum 
|  null 
|  conr 


84 

16450 

105 

11 

12 

3279 

1092 

364 

9 

7 


Total  cells         21413 

fib  (9) 

Enter  Expression 

<      1,       1,       2,       3,       5,       8,      13, 
21,      34> 

Evaluation  Completed 

**************************************************  ******** 

Statistics 
Systen  time  was       4650  milliseconds 
User  time  was        154450  milliseconds 


j  Module 

Cel 

is  created   | 

1  ~ 

I dcprim 

84      | 

i  cons 

48536      | 

I readiden 

105      | 

1 readint 

11      I 

| letrec 

12      | 

I  equal 

9840      | 

Isubt 

3279      | 

1  sum 

1093      | 

Inull 

10      | 
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I  conr 


Total  cells 


62978 


fib  (10) 

Enter    Expression 

<              1,                1, 

2, 

~, 

5, 

8,              13, 

21, 

34, 

55> 

Evaluation  Completed 

********************************************************** 

Statistics 
Systeir   time   was  13100    milliseconds 

User   time    was  458983    milliseconds 


Module 

dcpr im 

cons 

readiden 

readint 

letrec 

equal 

subt 

sum 

null 

conr 


Cells  created 

84 

144774 

105 

11 

12 

29523 

9840 

3280 

11 

9 


Total  cells  187649 
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ELC  Program  to  generate  the   Fibonacci  Sequence  (Using  a  let 
statement) 

Source  Code 

<letrec  reverse 
<lamhda  <L> 

<if  «call  <var  null>  <vai  L>> 
<con  <>> 
<call  <var  conr> 

<call  <var  reverse) 

<call  <var  rest>  <var  L>>> 
<call  <var  sub>  <var  L>  <con  1>>>>>> 
<letrec  fibo 
<lambda  <n> 

<if  <<call  <var  egual>  <var  n>  <con  0>> 
<con  <» 

<if  <<call  <var  egual>  <var  n>  <con  1>> 
<con  <1>> 

<if<<call  <var  egual>  <var  n>  <con  2>> 
<con  <1  1» 
<let  <<f>  <<call  <var  fibo> 

<call  <var  subt> 
<var  n> 
<con  1>>>> 
<call  <var  cons) 

<call  <var  sum> 

<call  <var  first> 

<var  f>> 
<call  <var  first> 
<call<var  rest> 
<var  f»» 
<var  f>>>»>>>>>> 
<call  <var  reverse) 

<call  <var  fibo>  <con  10>»>>! 
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Results   of    fibonacci   generating   function    with   'let' 
statement 
fib  (3..  10) 

fib  (3) 

Enter  Expression 

<      1,       1,       2> 

Evaluation  Completed 

********************************************************** 

Statistics 
Systen  time  was        133  milliseconds 
User  time  was  700  milliseconds 


Module 

dcprim 

cons 

readiden 

readint 

letrec 

equal 

subt 

sum 

null 

conr 


Cells  created 

84 
392 

95 
9 

12 
6 
1 
1 
4 
2 


Total  cells  606 

fib  (4) 

Enter  Expression 

<      1,       1,       2,       3> 

Evaluation  Completed 

********************************************************** 
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Systen  time  was 
User  time  was 


Statistics 

183  milliseconds 

783  milliseconds 


| Module 

I 

| dcprim 
|  cons 
i  readiden 
j  readint 
j letrec 
| equal 
|subt 
I  sum 
|null 
j  conr 


Cells  created 

84 
427 

95 
9 

12 
9 
2 
2 
5 
3 


Total  cells  648 

fib  (5) 

Enter  Expression 

<      1/       1/       2, 

Evaluation   Completed 


5> 


***********  *********************************************** 

Statistics 
Systen  time  was        166  milliseconds 
User  time  was  866  milliseconds 


Module 

dcprim 

cons 

readiden 


Cells  created 

84 

462 

95 


105 


I  readint 
J letrec 
|  equal 
|  subt 
|  sum 
Inull 
j  conr 


9 
12 
12 
3 
3 
6 
4 


Total   cells  690 

fib  (6) 

Enter  Expression 

<      1.       1,       2, 

Evaluation  Completed 


5, 


8> 


********************************************************** 

Statistics 
Systeu  time  was        133  milliseconds 
User  time  was  1066  milliseconds 


Module 

dcprim 

cons 

readiden 

readint 

letrec 

equal 

subt 

sum 

null 

conr 


Cells  created 

84 
497 

95 
9 

12 

15 
4 
4 
7 
5 


Total  ceils 


732 
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fib  (7) 

Enter    Expression 

<  1.  It 

Evaluation   Completed 


2, 


-f 


5, 


8, 


13> 


********************************************************** 

Statistics 
System   time   was  183    milliseconds 

User   time   was  1100    milliseconds 


Module 

dcprim 

cons 

readiden 

readint 

letrec 

equal 

subt 

sum 

null 

conr 


Cells  created  | 
I 

84  j 

532  j 

95  | 

9  I 

12  | 

18  | 

5  j 

5  I 
8  I 

6  I 


5, 


8, 


13, 


Total  cells  774 

fib  (8) 

Enter   Expression 

<  If  1,  2, 

21> 

Evaluation  Completed 

**************************** ****************************** 

Statistics 
Systen   time  was  183    milliseconds 

User   time    was  1216    milliseconds 
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Module 

dcpr im 

cons 

readiden 

readint 

letrec 

equal 

subt 

sum 

null 

conr 


Cells  created 

84 
567 

95 
9 

12 

21 
6 
6 
9 
7 


"3 


5, 


8, 


13, 


Total  cells  816 

fib  (9) 

Enter    Expression 
<  1,  1/  2, 

21,  34> 

Evaluation    Completed 

********************************************************** 

Statistics 
Systen  time  was        200  milliseconds 
User  time  was  1300  milliseconds 


| Module 

Cells 

created   | 

I  dcprim 

84      | 

|  cons 

602      | 

I  readiden 

95      | 

| readint 

9      I 

I letrec 

12      | 
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I  equal 
Jsubt 
|  sum 
|null 
Iconr 


24 
7 
7 

10 
8 


Total  cells 

fib  (10 

Enter  Expression 

<      1,      1, 

8,      13, 


858 


2, 
21, 


-3 

3  4, 


5, 
55> 


Evaluation  Completed 

********************************************************** 

Statistics 
Systeir   time  was  166    milliseconds 


User  time  was 


1466  milliseconds 


Module 


dcprim 

cons 

readiden 

readint 

letrec 

equal 

subt 

sum 

null 

conr 


Cells  created 

84 

637 

95 

9 
12 
27 

8 

8 
11 

9 


Total  cells 


900 
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Pascal    Source   Code    for    Fibonacci   Sequence    Generator 

program   fib  (input,    output)  ; 
const   max    =100 ; 
type   seg    =    1 . . max      of    integer; 
var    fibseg:    seg; 
n,c:    integer; 

procedure   f ib  (n,i  :integer)  ; 
begin 
if   i   <=   n    then    tegin 

if    (i    =    1)     or    (i   =    2)     then    begin 
fibseg  (.  i.)     :=    1 ; 
fib  (n,i    ♦    1)  ; 
end 
else    if    i   >=   3    then    begin 

fibseg(.i.)     :=    f  ibseg  (.i-1.  J     ♦    f  ibseg  ( .i-2. )  ; 
fib  (n,i    +    1) ; 
end 
end; 
end;     {procedure  fib} 

begin 

writeln (' Input  n:  »)  ; 
read  (n)  ; 
fib(n,1)  ; 

for  c  :=  1  to  max  do  begir 
if  fibseg  (.c.)  <>  0  then 

write  (f ibseg (.  c.) )  ; 
end; 
writeln; 

writeln (' System  time* ,sysclock : 10,  '  millisec1); 
writeln (' User  time   ,#clock:10,1  millisec'); 
end.  {Program  fib} 

Results  of  fibonacci  sequence  generator  in  Pascal 
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fib  (3) 
Input  n: 

1 
Systeir  time 
User  time 

fib  (4) 
Input  n: 

1 
System  time 
User  time 

fib  (5) 
Input  n: 

1 
System  time 
User  time 

fib  (6) 

Input  n: 
1 
8 

System  time 

User  time 


1  2 

33  millisec 
0  millisec 


1         2 

50  millisec 

0  millisec 


1  2 

33  millisec 
0  millisec 


33  millisec 
0  millisec 


fib  (7) 

Input  n: 

1 

1         2 

8 

13 

System  time 

33  millisec 

User  time 

0  millisec 

fib  (8) 

Input  n 


System  time 


1         2 
13        21 

33  millisec 


11  1 


User  time  0  millisec 


fib  (9) 

Input  n: 

1 

1 

2 

3 

5 

8 

13 

21 

34 

Systen  time 

33 

millisec 

User  time 

0 

millisec 

fib{10) 

Input  n; 

1 

1 

2 

3 

5 

8 

13 

21 

34 

55 

Systeir  time 

33 

millisec 

User  time 

0 

millisec 

Profile  for  ELC  fibonacci  sequence  generating  functions 
Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984   test11.p 
Profiled  Thu  Dec  13  09:41  1984 


Line       Count 


1 

1 

33 

11 

36 

844 

62 

27 

63 

3862 

84 

8188 

94 

4372 

122 

637 

137 

10 

158 

8 

183 

8 

258 

10 

273 

27 

291 

27 

f  unc 

printval 

cellcount 

equal 

nullp 

first 

rest 

cons 

conr 

sum 

subt 

sub 

egualp 

equal 
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539 

466 

547 

3862 

564 

11 

599 

226 

643 

56 

663 

11 

702 

180 

704 

256 

714 

76 

770 

9 

827 

410 

835 

514 

843 

95 

867 

180 

879 

38 

880 

375 

881 

136 

882 

2 

884 

466 

947 

2 

1012 

38 

1041 

375 

1093 

116 

1198 

136 

1239 

28 

1261 

1 

atomp 

nullp 

null 

assoc 

pairlis 

printval 

readval 

nonblank 

readlist 

readint 

digit 
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readident 
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evcon 

evlis 

apply 

letrec 
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letrec 
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apply 

dcprim 

readf name 
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iHteO^l  Gen-  ~a tin^   function 

Purpose 

Generate^  a  sequence  of  natural  numbers  from  m  to  n, 
where  m,n  are  two  natural  numbers  and  m  <  n. 

Practical  A£2lication 

Interval  is  very  useful  when  generating  tables  of  infor- 
mation. In  the  next  example  interval  is  used  to  generate  a 
table  of  trigonometric  values  for  all  angles  between  0  and 
90  degrees. 

Source  Code 

<letrec  interval 
<lamtda  <m  n> 

<if  <<call  <var  GT>  <var  k>  <var  n>> 
<con  <>> 
<call  <var  cons> 
<var  m> 
<call  <var  interval> 

<call  <var  sum> 

<var  m>  <con  1>> 
<var  n>>  >>>> 
<call  <var  interval>  <con  1>  <con  50>>>! 

Results  of  interval  generation  program  (m  =   1,   n   =  50, 
Compiled) 
Enter  Expression 
< 


1, 

2, 

3, 

4, 

5, 

6, 

7, 

8, 

9, 

10, 

11, 

12, 

13, 

14, 

15, 

16 

17, 

18, 

19, 

20, 

21, 

22, 

23, 

24 

25, 

26, 

27, 

28, 

29, 

30, 

31, 

32 

33, 

34, 

35, 

36, 

37, 

38, 

3S, 

40 

41, 

42, 

43, 

44, 

45, 

46, 

47, 

48, 

49, 

50> 
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Evaluation  Completed 

********************************************************** 

Statistics 
Systen  time  was        266  milliseconds 
User  time  was  1716  milliseconds 


Module 

dcprim 

cons 

readiden 

readint 

letrec 

GT 

sum 


Cells  created  | 
I 

84  | 

963  | 

35  | 

3  I 

6  I 

51  I 

50  I 


Total  cells 


1192 


Results  of  interval  (interpreted) 
********************************************************** 

Statistics 
System  time  was        616  milliseconds 


User  time  was 


19966  milliseconds 


I  Module 


Cells  created   | 


1 

I dcprim 

84 

I  cons 

963 

I readiden 

35 

| readint 

3 

I letrec 

6 

|GT 

51 

115 


Isum  50      | 

Total  cells  1192 

Profile  for  interval  function  n,  n  1-50 
Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984   test11.f 
Profiled  Thu  Dec  13  13:54  1984 

line       Count 

f  unc 

printval 

cellcount 

nullp 

first 

rest 

cons 

sum 

GTp 

G1 

atomp 

nullp 

assoc 

pairlis 

printval 

readval 

nonblank 

r eadlist 

readint 

digit 

letter 

readident 

readval 

evcon 
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1 

1 

33 

51 

36 

1136 

63 

5487 

84 

1  1793 

94 

6357 

122 

963 

158 

50 

330 

51 

340 

51 

539 

761 

547 

5437 

599 

454 

643 

153 

663 

51 

702 

63 

704 

88 

714 

25 

770 

3 

827 

151 
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Restriction 

Purpose 

Restriction  takes  a  finite  function,  Tt  (table  of  attri- 
bute value  pairs) ,  and  returns  a  finite  function  exactly 
like  1  except  that  cne  of  the  rairs  has  been  removed.  If 
the  pair  to  be  deleted  is  not  a  member  of  the  finite  func- 
tion   then   T   is   returned    (this    is   tolerant   evaluation) . 

Practical   Application     Restriction   could      be   used      to   delete 
records    from  a    database. 

Source    Code 

<letrec  member 
<lambda  <x  L> 

<if  <<call  <var  null>  <var  L>> 
<con  false> 
<if  <<call  <var  egual> 
<var  x> 

<call  <var  first>  <var  L>>> 
<con  true> 
<call  <var  member) 
<var  x> 

<call  <var  rest>  <var  L>>>>>>>> 
<letrec  firstlist 
<iambda  <L> 

<if  <<call  <var  null>  <var  L>> 
<con  <>> 
<call  <var  cons> 

<call  <var  first> 

<call  <var  first>  <var  L>>> 
<call  <var  firstlist> 

<call  <var  rest>  <var  L»>>>>> 
<letrec  isfinfunc 
<lambda  <T> 

<if  <<call  <var  null>  <vai  T>> 
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<con    true> 

<if    <<call   <var   egual> 

<call    <var   len> 

<call    <var   first>   <var    T>>> 
<con    2» 
<if    «call   <var   equal> 

<call   <var   member> 

<call   <var   first> 

<call  <var    firstlist> 
<var    T>>> 
<call   <var   rest> 

<call   <var   firstlist> 
<var    T>>>> 
<con  true>> 
<con  false> 
<call   <var   isfinfunc> 
<call  <var   rest> 
<var    T>»>> 
<con   false>>>>>> 
<let   <<repr>   <<lambda  <T> 

<if    «call    <vax  equal> 

<call   <var   first>   <var    T>> 
<cod   finset>> 
<call    <vat   rest>   <var    T» 
<con   nof inf nc>»>> 
<letr€c  restric 
<lambda   <T   k> 

<if  <<call   <var  egual> 

<call  <var   isfinfunc>   <var    T>> 
<con  true>> 
<if    <<call  <var    null>   <var  T>> 
<con    <>> 

<if    «call   <var  egual> 
<var   k> 
<call  <var  first> 
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<call  <var  first> 
<var  T»>> 
<call  <var  rest>  <var  T» 
<call  <var  cons) 

<call  <var  first>  <var  T>> 
<call  <var  restric> 

<call  <var  rest>  <var  T>> 
<var  k>>> 
<con  Tnotffunc»>»>» 
<call  <var  restric> 

<call  <var  repr>  <finset  <3  4>  <6  5>  <8  9>>  > 
<con  3>  >>»»>! 

Results  of  restriction  function  (Compiled) 
Enter  Expression 
<<      6,       5> 
,  <      8,       9> 

> 

Evaluation  Completed 

Statistics 
Systen  time  was        216  milliseconds 
User  time  was  1966  milliseconds 


J  Module 

Cells 

created   j 

I dcprim 

34      | 

I  cons 

837      j 

J  readiden 

220      | 

I readint 

8      J 

| letrec 

24      | 

|eval 

1      | 

I e^ual 

12      | 

|null 

29      | 
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I  len 


Total  cells 


1218 


Results   of   restriction    (interpreted) 

Enter    Expression 

<<  6,  5> 

,    <  8,  9> 

> 

Evaluation   Completed 

Statistics 
Systeir   time   was  516    milliseconds 

User   time   was  17966    milliseconds 
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1218 


Profile  for   restriction   progran 

Berkeley    Pascal   PXP    —    Version    2.12    (5/11/83) 

Wed    Dec    12    12:48    1984      test11.p 
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Profiled  Thu  Dec  13  14:50  1984 
Line       Count 
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printval 
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equal 
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first 

rest 

cons 
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atomp 
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printval 

readval 

nonblank 

readlist 

readint 

digit 

letter 

readident 

eve  on 

evlis 

apply 

letrec 

eval 

letrec 

evcon 


122 


1041 

325 

1093 

115 

1198 

145 

1239 

28 

1261 

1 

evlis 
applyprira 
apply 
dcprim 
r eadf name 


123 


!§ctor2£oduct  Function 

Purpose 

Vectorprod uct  returns  the  pairwise  products  of  two  lists 
of  numbers. 

Practical  Application 

This  function  could  be  used  to  calculate  the  state  tax 
owed  by  military  employees,  since  different  states  have 
different  rates  of  taxation.  Cne  vector  would  be  the  list 
of  salaries  and  the  other  the  rates  of  taxation. 

Source  Code 

<letrec  map 
<lamtda  <f> 
<lambda  <L> 

<if  «call  <var  null>  <var  L» 
<con  <>> 
<call  <var  cons) 

<call  <var  f>  <call  <var  firstXvar  L»> 
<call  <call  <var  map>  <var  f>> 

<call  <var  rest>  <var  !>»»>» 
<letrec  prodlist 
<lambda  <L> 

<if  «call  <var  null>  <var  L>> 
<con  1> 
<call  <var  prod> 

<call  <var  sub>  <var  L>  <con  1>> 
<call  <var  prodlist> 

<call  <var  rest>  <var  !>>>>>>> 
<letrec  pairlist 
<lamlda  <L  M> 

<if  <<call  <var  equal> 

<call  <var  len>  <var  L>> 
<call  <var  len>  <var  M>>> 
<if  <<call  <var  null>  <var  L>> 
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<if  «call  <var  null>  <var  M» 
<con  <>> 
<con  <>»> 
<call  <var  cons) 

<call  <var  cons) 

<call  <var  first>  <var  L>> 
<call  <var  cons) 

<call  <var  first)  <var  M>> 
<con  <>>  » 
<call  <var  pairlist) 

<call  <var  rest)  <var  L>> 
<call  <var  rest)  <var  M»>>)> 
<con  errorpl)  >» 
<call 
<call  <var  map)  <var  prodlist)) 
<call  <var  pairlist) 

<list  <con  5)  <con  £)  <con  4)  <con  9» 

<list  <ccc  2)  <con  20)  <con  7)  <con  3>)»>>>! 

Results  of  vectorprod  function  (Compiled) 

Enter  Expression 

<     10,     160,      28,      27) 

Evaluation  Completed 

********************************************************** 

Statistics 
System  time  was        216  milliseconds 
User  time  was         1583  milliseconds 


j  Module 

I 

j  dcpr im 
I  cons 
I readiden 
I readint 


Cells  created 

84 
720 
150 

10 
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I letrec 
|  len 
|  equal 
i  null 
|  eval 
j  prod 


18 

10 

5 

23 
5 
8 


Total   cells 


1033 


Results   of  vectorproduct  function    (Interpreted) 

Enter    Expression 

<  10,  160,  28,  27> 

Evaluation  Completed 
********************************************************** 

Statistics 
System  time  was        483  milliseconds 
User  time  was         15066  milliseconds 
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8      I 
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1033 
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Profile  for  vectorpicduct  function 
Berkeley  Pascal  PXP  —  Version  2.12  (5/11/83) 
Wed  Dec  12  12:48  1984   test11.p 
Profiled  Thu  Dec  13  15:09  1984 
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printval 
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Filter   Function 

Purpose 

Filter  allows  the  user  to  extract  information  from  a 
list  .based  on  a  Boolean  condition.  In  the  example  given, 
all  numbers  greater  than  2000  are  extracted  from  the  list. 

Practical  Application 

Filter  is  another  function  that  could  be  useful  when 
dealing  with  databases.  Users  of  relational  database 
systems  use  filtering  every  time  they  write  a  guery. 
Imagine  that  the  elements  of  the  example  are  salaries.  The 
query  demonstrated  is  to  find  all  salaries  greater  than 
2000. 

Source  Code 
<letrec  fil 

<lambda  <bool  arg> 
<lambda  <L> 

<if  <<call  <var  null>  <var  L>> 
<con  <» 
<if  <<call  <var  bcol> 

<call  <var  sub>  <var  L> 
<con  1» 
<var  arg>> 
<call  <var  ccns> 

<call  <var  sub>  <var  L>  <con  1» 
<call  <call  <var  fil> 
<var  bool> 
<var  arg>> 
<call  <var  rest>  <var  L>»> 
<call  <call  <var  fil> 
<var  bool> 
<var  arg>> 
<call  <var  rest>  <var  L>>>»>>» 
<call 
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<call   <var    fil>    <var    GE>    <ccn    2000>> 
<list   <con    1000>    <ccn    12000>    <con    2005>    <con   3400> 
<con    3305>    <con    134>    <con   2001>   <con    3500> 
<con   2209>    <ccn    1999>»>! 

Results    of   filter    function (Interpreted) 

Enter    Expression 

<    12000,         2005,  3400,  3305,  2001,  3500,  2209> 

Evaluation   Completed 

************ ****** ** *** **** **** ******** **** ****** ********* 

Statistics 
System   time   was  416    milliseconds 

User   time   was  9083    milliseconds 
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Result  cf  filter  function  (Compiled} 

Enter  Expression 

<  12000,    2005,    3400,    3305,    2001,    3500,    2209> 

Evaluation  Completed 
********************************************************** 
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Systeir   time  was 
User   time   was 


Statistics 
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Berkeley   Pascal   PXP    —    Version    2.12    (5/11/83) 
Wed    Dec    12    12:48    1984      test11.p 
Profiled    Thu    Dec    13    13:40    1934 
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Periodic  Sequence  Generator 

Purpose 

This   program    simply   illustrates    the   interpreter's 
ability  to  generate  a  recursive  sequence. 

Source  Code 
<letrec  reverse 
<lambda  <L> 

<if  <<call  <var  null>  <var  L>> 
<con  <» 
<call  <var  conr> 

<call  <var  reverse) 

<call  <var  rest>  <var  L>>> 
<call  <var  sub>  <var  L>  <con  1>>>>>> 
<letrec  fibo 
<lambda  <n> 

<if  <<call  <var  equal)  <var  n>  <con  1>> 
<con  <2>> 

<if<<call  <var  egual>  <var  n>  <con  2>> 
<ccn  <9  2>> 
<let  <<f>  <<call  <var  fibo> 

<call  <var  subt> 
<var  n> 
<con  1>>>> 
<call  <var  cons) 

<call  <var  subt> 

<call  <var  first> 

<var  f>> 
<call  <var  first> 
<call  <var  rest> 
<var  f>»> 
<var  f>>>>»>>> 
<call  <var  reverse) 

<call  <var  fibo>  <con  24>»»! 
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Results  of  generating  the  first  24  elements  of  a  periodic 
sequence,  where  x1  =  2,  x2  =  9,  and  xk  =  (xk-1 ) - (xk-2) 
for  k  =3,  4,  5,  ... 


Enter  Exp 

ression 

<      2, 

9, 

7, 

-2, 

"9, 

-7, 

2, 

9, 

1. 

-2, 

"9, 

-7, 

2, 

9, 

7, 

-2, 

-9, 

-7, 

2, 

9, 

7, 

-2, 

-9, 

-7> 

Evaluation  Completed 

***********************  *********************************** 

Statistics 
Systeir  time  was        283  milliseconds 
User  time  was         2916  milliseconds 
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Profile  of  seg2  (periodic  function) 
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Profiled  Thu  Dec  13  10:10  1984 
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Overlay  Function 

Purpose 

Overlay  takes  a  finite  f unction,  (table) ,  and  returns  an 
identical  table  with  an  additioral  pair  added. 

Practical  Application 

Overlay  could  be  used  as  a  way  to  update  a  database. 

Source  Code 

<letrec  firstlist 
<lambaa  <L> 

<if  <<call  <var  null>  <var  L>> 
<con  <» 
<call  <var  cons> 

<call  <var  first> 

<call  <var  first>  <var  L>>> 
<call  <var  firstlist> 
<call  <var  rest> 

<var  L>»»>> 
<letrec  isfinfunc 
<lambda  <T> 

<if  «call  <var  null>  <var  T>> 
<con  true> 
<if  <<call  <var  ec^ual> 

<call  <var  len> 

<call  <var  first>  <var  T>>> 
<con  2» 
<if  <<call  <var  memb> 

<call  <var  first> 

<call  <var  firstlist> 
<var  T»> 
<call  <var  rest> 

<call  <var  firstlist> 
<var  T»>> 
<con  false> 
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<call  <var  isfinfunc> 
<call  <var  rest) 
<var  T»>>> 
<con  false> 

»»> 
<letrec  overlay 
<lambda  <T  pr> 

<if  <<call  <var  egual> 

<call  <var  isfinfunc>  <var  T>> 
<con  true>> 
<if  <<call  <var  null>  <var  T>> 

<call  <var  cons>  <var  pr>  <con  <>>> 
<if  «call  <var  equal> 

<call  <var  first>  <var  pr>> 
<call  <var  first> 

<call  <var  first> 
<var  T»>> 
<call  <var  overlay) 

<call  <var  rest>  <var  T>> 
<var  pr>> 
<call  <var  cons) 

<call  <var  first>  <var  T>> 
<call  <var  overlay) 

<call  <var  rest>  <var  T>> 
<var  pr>>> 

>»> 


<con    Tnotffunc> 


>>> 


<call   <var   overlay> 

<call   <var   repr>   <finset    <3    4>    <6    5>    <8   9>>> 
<list    7    2>   >»>! 

Results   of    overlay    function    adding    the    value   <3    <4> 
to    the    table.  (Compiled) 

Enter    Expression 
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« 

3, 

4> 

,  < 

6, 

5> 

/  < 

8, 

9> 

,  < 

7 , 

2> 

> 

Evaluation   Completed 

********************************************************** 

Statistics 
Systeir   time  was  183    milliseconds 

User    time   was  2333    milliseconds 
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Results  of  overlay  (Interpreted) 
Enter  Expression 
«      3,       4> 
,  <      6,       5> 


8, 
7, 


9> 
2> 
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Evaluation   Completed 

*************************      ******************************* 

Statistics 
Systeir    time    was  633    milliseconds 

User    time   was  24433    milliseconds 
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Profile   for  overlay    program 

Berkeley    Pascal    PXP    —   Version    2.12     (5/11/83) 

Wed    Dec    12    12:48    1984      test11.f 

Profiled    Thu   Dec    13    14:05    1984 
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Split    Function 

Purpose 

Split  takes  a  list  and  divides  it  into  two  equal  size 
lists . 

Practical  Application 

The  split  function  illustrates  how  functional  languages 
lend  themselves  to  parallel  computer  operations.  If  quick- 
sort was  implemented  using  split  then  once  the  list  was 
initially  separated  into  two  lists,  two  processors  could 
work  en  those  two  lists,  etc.. 

Source  Code 
<letrec  splitaux 
<lamtda  <k  L> 

<if  <<call  <var  equal>  <var  k>  <con  0>> 
<call  <var  cons> 
<con  <» 

<call  <var  cons) 
<var  L> 
<con  <>>» 
<let  <<r>  «call  <vai  splitaux> 

<call  <var  subt>  <var  k>  <con  1>> 
<call  <var  rest>  <var  L>>>> 
<call  <var  cons> 

<call  <var  cons) 

<cail  <var  first>  <var  L>> 
<call  <var  first>  <var  r>>> 
<call  <var  rest)  <var  r>>>>>>>> 
<let  <<split> 

<<lambda  <L> 

<call  <var  splitaux> 

<call  <var  divi> 

<call  <var  len>  <var  L>> 
<con  2>> 
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<var    L»» 
<call    <var   split>   <list    abcdefioe   t>>>»! 

Results   of   using    the   split    function      to   divide    a    10    element 
list 
Enter    Expression 
<<a,    b,    c,    d,    e> 
i    <£,    i,    o,    e,    t> 
> 

Evaluation   Completed 

********************************************************** 

Statistics 
Systen    time   was  166    milliseconds 

User   time   was  833    milliseconds 


Module 

dcprim 

cons 

readiden 

readint 

letrec 

eval 

len 

divi 

equal 

sunt 


Cells  created 

84 
472 

91 
3 
6 
1 
1 
1 
6 
5 


Total  cells 


670 


Profile   of   split    (ten   element    list) 

Berkeley   Pascal   PXP    —    Version   2.12    (5/11/83) 

Wed    Dec    12    12:48    1984      test11.p 
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Profiled  Thu  Dec  13  15:03  1984 


Line 

Count 

1 

1 

33 

13 

36 

614 

62 

6 

63 

1656 

84 

3439 

94 

1861 

122 

472 

183 

5 

233 

1 

273 

6 

291 

6 

539 

183 

547 

1656 

576 

11 

587 

1 

599 

86 

643 

32 

663 

13 

702 

156 

704 

218 

714 

62 

770 

3 

827 

37  5 

835 

469 

843 

91 

867 

156 

879 

6 

880 

169 

881 

52 

882 

1 

884 

183 

f  unc 

printval 

cellcount 

equal 

nullp 

first 

rest 

cons 

subt 

divi 

equalp 

equal 

atomp 

nullp 

lenp 

len 

assoc 

pairlis 

printval 

readval 

nonblank 

readlist 

readint 

digit 

letter 

readident 

readval 

evcon 

evlis 

apply 

letrec 

eval 
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947 

1 

1012 

6 

1041 

169 

1093 

45 

1198 

52 

1239 

28 

1261 

1 

letrec 

evcon 

evlis 

applyprim 

apply 

dcprim 

r eadfname 
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lLi.2.   Table  Generating  Program 

Purpose 

Generates  a  table  of  trigonometric  values  for  all  angles 
in  the  interval  0  to  90  degrees. 

Discussion 

This  program  demonstrates  the  value  of  the  interval 
function  combined  with  the  map  functional.  The  reverse  of 
the  map  functional,  (pam) ,  is  also  used.  Map  takes  one 
function  and  applies  it  to  all  the  elements  of  a  list,  where 
pam  takes  a  list  of  functions  and  applies  each  one  to  the 
same  argument.  It  is  clear  that  mapping  the  pam  function 
across  the  interval  0  to  90  produces  the  desired  results. 
This  program  also  illustrates  the  value  of  the  'id'  primi- 
tive which  allows  the  first  elenent  of  each  of  the  sublists 
in  the  result  to  be  the  angle. 

Source  Code 

<letrec    map 
<lambda   <f> 

<iambda    <L> 

<if   «call    <var   null>    <var    L» 
<con   <» 
<call   <var   cons> 

<call   <var   f>  <call   <var    firstXvar   L»> 
<call    <call    <var    map>    <var    f>> 

<call   <var   rest>    <var    L>>>»>» 
<letrec    pam 
<lambda    <F> 
<lambda    <x> 

<if   <<call    <var    null>    <var    F>> 
<con   <» 

<call    <var   cons> 
<call 

<call    <var   first>    <var   F>> 
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<var   x>> 
<call 

<call    <var   pam> 

<call   <var   restXvar    F>>> 
<var   x»>»>> 
<letrec  interval 
<lambda   <m  n> 

<if   <<call   <var  GT>   <var    m>    <var    n>> 
<con    <>> 
<call   <var   cons> 
<var   m> 
<call   <var   interval> 

<call  <var    sum> 
<var    m> 
<con    1» 
<var   n>>   »» 
<call 

<call   <var   map> 

<call   <var    pam>    <list   <var   id>   <var   sin> 

<var   cos>   <var    tan»» 
<call   <var  interval>  <con   0>    <con    90>»>>>! 

Results  of  mapping  the  pam  function  across  a  list  to 
generate  the  table  of  trigonometric  values  for  angles  0-90 
degrees. 

Enter  Expression 

«  0,    0.000000,     1.000000,     C.000000> 

,    <  1,    0.017452,   0.999848,  0.017455> 

,    <  2,    0.034899,    0.999391,  0.034921> 

,    <  3,    0.052336,    0.998630,  0.052408> 

,    <  4,    0.069756,    0.997564,  0.069927> 

,    <  5,    0.087156,    0.996195,  0.087489> 

,    <  6,    0.104528,    0.994522,  0.105104> 

,    <  7,    0.121869,    0.992546,  0.122785> 

,    <  8,    0.139173,    0.990268,  0.140541> 
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,   < 

9, 

,    0. 156434, 

,    0.937688, 

0.158384> 

,  < 

10, 

,    0.  173648, 

,    0.9848084 

,    0.176327> 

,  < 

11, 

,    0.190809, 

,    0.981627, 

,    0.194380> 

,  < 

12, 

,    0.207912, 

,    0.978148, 

,    0.212557> 

,  < 

13, 

,    0.224951, 

,    0.974370, 

,    0.230868> 

,  < 

14, 

,    0.241922, 

,    0.970296, 

,    0.249328> 

,  < 

15, 

,    0.258819, 

,    0.965926, 

,    0.267949> 

,   < 

16, 

,    0.275637, 

,    0.961262, 

,    0.286745> 

,  < 

17, 

,    0.292372, 

,    0.956305, 

,    0.305731> 

,   < 

18, 

,    0.309017, 

,    0.951057, 

,    0.324920> 

,   < 

19, 

t    0.325568, 

,    0.945519, 

0.344328> 

,   < 

20, 

,    0.342020, 

,    0.939693, 

,    0.363970> 

,  < 

21, 

,    0.358368, 

,    0.933580, 

,    0.383864> 

,   < 

22, 

,    0.374607, 

,    0.927184, 

,    0.404026> 

,  < 

23 , 

,    0.390731, 

,    0.920505, 

,    0.424475> 

,   < 

2U, 

,    0.406737, 

,    0.913545, 

,    0.445229> 

,  < 

25, 

,    0.422618 

,    0.906308, 

,    0.466308> 

,  < 

26, 

,    0.438371, 

,    0.898794, 

,    0.487733> 

,  < 

27, 

,    0.453990, 

,    0.891007, 

,    0.509525> 

,   < 

28, 

,     0.469472, 

,    0.882948, 

,    0.531709> 

,  < 

29, 

,    0.484810 

,    0.874620, 

,    0.554309> 

,   < 

30, 

,    0.500000, 

,    0.866025 

,    0.577350> 

,  < 

31 

,    0.515038 

,    0.857167, 

,    0.600861> 

,   < 

32 , 

t    0.529919 

,    0.848048, 

,    0.624869> 

,   < 

33 

,    0.544639, 

,    0.838671, 

,    0.649408> 

,   < 

34, 

,    0.559193, 

,    0.829038, 

,    0.674509> 

,  < 

35, 

,    0.573576, 

,    0.819152 

,    0.700208> 

,   < 

36, 

,    0.587785, 

,    0.809017, 

,    0.726543> 

.   < 

37, 

,    0.601815 

,    0.798636, 

,    0.753554> 

,   < 

38, 

,    0.615661, 

,    0.788011, 

,    0.781286> 

,  < 

39 

,    0.629320, 

,    0.777146, 

,    0.809784> 

,   < 

40, 

,    0.642788, 

,    0.766044 

,    0.839100> 

,  < 

41 

,    0.656059 

,    0.754710, 

,    0.869287> 

,   < 

42, 

,    0.669131, 

,    0.743145, 

,    0.900U04> 

,  < 

43, 

,    0.681998 

,    0.731354, 

,    0.932515> 
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,   < 

U44 

,    0.694658, 

,    0.719340, 

0.965689> 

,  < 

1*5 1 

,    0.707107, 

,    0.707107, 

,    1.000000> 

,  < 

46, 

,    0.719340, 

,    0.694658, 

1.035530> 

,   < 

47, 

,    0.731354, 

,    0.681998, 

,     1.072369> 

,  < 

48, 

,    0.743145, 

,    0.669131, 

1. 110613> 

,   < 

49, 

,    0.754710, 

,    0.656059, 

,    1.150368> 

,   < 

50, 

,    0.766044, 

,    0.642788, 

,     1.191754> 

,   < 

51j 

,    0.777146, 

,    0.629320, 

,    1.234897> 

,  < 

52, 

,    0.788011, 

r    0.615661, 

,     1.279942> 

,   < 

53, 

,    0.798636, 

r    0.601815, 

,    1.327045> 

,   < 

54, 

,    0.809017, 

r    0.587785, 

,     1.376382> 

,  < 

55, 

,     0.819152, 

r    0.573576, 

,     1.428148> 

,  < 

56, 

,    0.829038, 

r    0.559193, 

,     1.482561> 

,   < 

57, 

,    0.838671, 

r    0.544639, 

,    1.539865> 

,  < 

58, 

,    0.848048, 

r    0.529919, 

,     1.600335> 

,   < 

59, 

,    0.857167, 

,    0.515038, 

r    1.664279> 

,  < 

60, 

,    0.866025, 

,    0.500000, 

1.732051> 

,   < 

61, 

,    0.874620, 

,    0.484810, 

,    1.804048> 

,  < 

62, 

,    0.882948, 

,    0.469472, 

,     1.880726> 

,   < 

63, 

,    0.891007, 

r    0.453990, 

,     1 .96261 1> 

,   < 

64, 

,    0.898794, 

r    0.438371, 

,    2.050304> 

,   < 

65, 

,    0.906308, 

,    0.422618, 

r    2.144507> 

,  < 

66, 

,    0.913545, 

,    0.406737, 

,    2.246037> 

,  < 

67, 

,    0.920505, 

,    0.390731, 

,    2.355352> 

,   < 

68, 

,    0.927184, 

r    0.374607, 

,    2.475087> 

/   < 

69, 

,    0.933580, 

,    0.358368 

,    2.605089> 

,  < 

70, 

,    0.939693, 

,    0.342020, 

,    2.747477> 

,  < 

71, 

,     0.945519, 

,    0.325568, 

f    2.904211> 

,   < 

72 

,    0.951057, 

,    0.309017, 

,    3.077684> 

,   < 

73, 

,    0.956305, 

f    0.292372, 

,    3.270853> 

,  < 

74, 

,    0.961262, 

,    0.275637, 

,    3.487414> 

,  < 

75, 

,     0.965926, 

,    0.258819 

r    3.732051> 

,  < 

76 

,     0.970296, 

,    0.241922, 

r    4.010781> 

,   < 

77, 

,     0.974370 

r    0.224951 

r    4.331476> 

,   < 

78 

t    0.978148 

r    0.207912, 

r    4.704630> 
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/ 

< 

19, 

0-981627, 

0.190809, 

5.144554> 

1 

< 

80, 

0-  984808, 

0. 173648, 

5.671282> 

1 

< 

81, 

0.987688, 

0. 156434, 

6.313752> 

1 

< 

82, 

0.990268, 

0. 139173, 

7.1 15370> 

1 

< 

83, 

0.9  92546, 

0. 121869, 

3. 144346> 

1 

< 

84, 

0.  994522, 

0. 104528, 

9.514364> 

1 

< 

85, 

0.  996195, 

0.087156, 

11.430052> 

1 

< 

86, 

0.997564, 

0.069756, 

14.300666> 

1 

< 

87, 

0.998630, 

0.052336, 

19.081137> 

1 

< 

88, 

0.  999391, 

0.034899, 

28.636253> 

1 

< 

89, 

0.999848, 

0.017452, 

57.289962> 

1 

> 

< 

90, 

1. 000000, 

' undef '  , 

fundef  •> 

Evaluation   Completed 

Statistics 

Systeii   time   was  4450    milliseconds 

User    time    was  292650    milliseconds 


| Module 

Cells  created      | 

J  dcprim 

84              | 

I  cons 

10305              | 

| readiden 

121               | 

I readint 

3              | 

|  letrec 

18              | 

I  eval 

457               | 

|  GT 

92               | 

I  sum 

91               J 

Inull 

547              | 

|  sinp 

91               | 

|  cosp 

91               | 

I  tanr 

91               J 
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Total  cells 
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Results   of   trig    table   generator    (Compiled) 
Evaluation   Completed 

********************************************************** 

Statistics 
Systen    time  was  1216    milliseconds 

User   time   was  24100    milliseconds 


| Module 

Cells  created   | 

j  dcprim 

84      I 

|  cons 

10305      j 

j  readiden 

121      | 

| readint 

3      | 

|  letrec 

18      | 

IGT 

92      J 

I  sum 

91      | 

j  eval 

457      j 

inull 

547      I 

i  tanr 

91      j 

I  cosp 

91      | 

|sinp 

91      | 

Total   cells 
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Profile   for  trigtable   generatirg   function 
Berkeley   Pascal    PXP   —   Version   2.12    (5/11/83) 
Wed    Dec    12    12:48    1984      test11.p 
Profiled    Thu   Dec    13    09:36    1984 


Line 


Count 
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1 

1 

33 

456 

36 

1  1935 

63 

88505 

84 

189153 

94 

102572 

122 

10305 

158 

91 

330 

92 

340 

92 

411 

91 

433 

91 

454 

91 

539 

10495 

547 

88505 

564 

547 

599 

5563 

643 

2284 

663 

456 

702 

211 

704 

298 

714 

87 

770 

3 

82  7 

510 

835 

634 

843 

121 

867 

211 

879 

639 

880 

8118 

881 

3646 

882 

3 

884 

10495 

947 

3 

1012 

639 

fane 

printval 

cellcount 

nullp 

first 

rest 

cons 

sum 

GTp 

GT 

sinp 

cosp 

tann 

atomp 

nullp 

null 

assoc 

pairlis 

printval 

readval 

nonblank 

readlist 

readint 

digit 

letter 

readident 

readval 

eve  on 

evlis 

apply 

letrec 

eval 

letrec 

evcon 
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1041 

8118 

1093 

2550 

1198 

3646 

1239 

28 

1261 

1 

evlis 
applyprim 
apply 
dcpr im 
readf name 
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Comparison      of    Programs      Run      With      and    Without      the      H em  or  y 
Manager     (MM) 

General 

The  column  labeled  "left"  in  the  following  table  refers 
to  the  number  of  cells  that  were  in  the  freelist  after  eval- 
uation of  the  program.  This  is  caused  by  returning  the 
cells  that  made  the  program  list  and  is  noteworthy  because 
several  programs  could  be  loaded  in  the  same  file  and  evalu- 
ated without  the  danger  of  using  all  allocated  memory. 

Cells  Created 

Program    MM   Nc  MM    left    System    User 

TIME      TIME 

9566 
1090 
10583 
12233 
15800 
17566 
7566 
34483 
14233 
53416 
12300 


Reverse 

381 

401 

Revaux 

427 

427 

Append 

531 

561 

Map  (sine) 

599 

629 

Halving 

774 

898 

Collate 

718 

7  48 

Factorial 

427 

457 

Interval 

1042 

1192 

Filter 

755 

776 

Periodic 

1071 

1393 

Split 

611 

670 

46 

416 

46 

533 

51 

566 

95 

533 

102 

816 

72 

700 

18 

416 

21  1 

933 

147 

516 

e 

1116 

24 

466 
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APPENDIX    C 


SOURCE    CODE 
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id^d-H  P       Cn  H                        OP 

u  cu                 cu           a     (d     cu     cy    na     s     x           cu 

.**               P  -HPPPtdH-IOUHUlSCy                (-1 

(d  OP                3  C0Gd)'HO*3Ortc!««3 

T3  (dW",-PrO««CUrH-H(-i(d-Q^,+JU  nr)      P 
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T3  a       CU  M 

(U  (d     P4    ii      td  II                                                          <a    'o                        cd 

ej  cu     p     p     to  H                                                              ajcy                          id 

CU  U>      H       Cn      10      Q  rH                                                                                  QO»                                  Q 

P  Ci<     -H       <d      -H      *  <D                                                                                  •*        M                                  # 
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